我在Excel中使用VBA尝试编写一些宏，但是，我对该过程非常陌生。
目前，我正在尝试使用for循环在列中搜索非数字值。为此，我编写了以下内容：
rwcnt = WorksheetFunction.CountA(Range("A:A"))
Dim i As Integer
For i = 1 To rwcnt
If Cells(i, 1).Value = Not IsNumeric Then
Cells(i, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Exit For
End If
这返回一个错误，指出该参数不是可选的，并且突出显示IsNumeric。
我要完成的工作是搜索A列，然后选择标题外第一个包含非数字字符的单元格。另外，这正在搜索超过100K个单元，因此，如果没有一种强度较低的方法来执行此过程，建议也将是不错的。
任何帮助将不胜感激，再说一次，我对这些东西一无所知，因此，如果一切都不对，请随意说。
我很难想起我想要做的事情,因为我很难把我想做的事情变成文字.
基本上,我想要做的是采取一组标题(可能是10-12列长),并在宏中,我想将这些标题粘贴(替换)在表1的第1行中的当前标题.我目前设置的东西是,在生成该工作表时,从每张工作表的第2行开始插入我的数据.我有一个宏写入,将第1页的第1行复制到每个现有的工作表,但是,我不需要手动插入第一个工作表的标题(它应该是宏的一部分).
所以我想我需要协助如何在第1页的第1行插入一行预定的标题(我想将实际的标题名称写入宏代码).
编辑:
Application.CutCopyMode = True
Dim Counter As Long
Counter = Sheets.Count
For i = 1 To Counter
Sheets("Sheet1").Cells(1, 1).EntireRow.Copy
Sheets(i).Cells(1, 1).PasteSpecial
Next i
Application.CutCopyMode = False
这就是我复制代码的方法,这很好用.我想要的是能够在第1行第1页的相应列中放入一行基本上称为"粘贴"标题1""标题2""标题3"等"的代码行.所以我已经有了我的标题名称挑选出来但我想将它们直接放入宏代码中.因此,如果我的标题是Apply Banana Lettuce Tomato,我想将这些单词放入宏代码中,并将它们粘贴在上面列出的复制粘贴代码之前的第1行第1行中.