如何将string插入第一个可用列中的第一个单元格，即C1，F1，AA1

我有一个子例程search第一列中的第一个可用的单元格是空的。 我想插入一个string到这个单元格。

什么是最好的方法来做到这一点？ 我尝试过这样的：

Range(NextEmptyCol).Value = "New Query" 

这是我的子程序：

 Sub CreateNewQuery() Dim NextEmptyCol As Long Sheets("DataFeedSheet").Activate NextEmptyCol = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column + 1 ' MsgBox "Column number " & NextEmptyCol & vbCr & _ ' "Or column letter """ & Replace(Cells(1, NextEmptyCol).Address(0, 0), 1, "") & """", _ ' vbInformation, "The Next Empty Column is..." Range(NextEmptyCol).Value = "New Query" End Sub 

Answer 1

也许这是你在找什么

 Sub CreateNewQuery() Dim NextEmptyCol As Long Sheets("Sheet2").Activate NextEmptyCol = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Column + 1 ' MsgBox "Column number " & NextEmptyCol & vbCr & _ ' "Or column letter """ & Replace(Cells(1, NextEmptyCol).Address(0, 0), 1, "") & """", _ ' vbInformation, "The Next Empty Column is..." Cells(1, NextEmptyCol).Value = "New Query" End Sub