vba - 如何将字符串插入第一个可用列中的第一个空单元格，即 C1、F1、AA1

Question

我有一个子例程，用于搜索第一列中的第一个可用单元格，该单元格为空。我想在这个单元格中插入一个字符串。

最好的方法是什么？我试过这样:

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