如何使用vba获取excel中使用的最后一列

Question

您好我到达工作表中使用的最后一栏时遇到问题。

我知道，因为它的最后一列是43，我希望它在第44列输入一个值，所以当我再次搜索时，它将在第44列作为最后一列使用，然后在45处输入一个值等等等等。我正在使用ref num来找到正确的行。

我正在使用的代码如下，以尝试获取最后一列

'find last empty Col in database
LastCol = sou.Cells(2, Columns.count).End(xlToLeft).Column + 1
MsgBox LastCol

'For Loop to cycle through the columns
For x = 2 To LastCol

    'If the row value at column 1 = the ref number then continue
    If sou.Cells(x, 1).Value = refNum Then
        sou.Cells(x, LastCol).Value = Me.commentBox.Text
        Exit For
    End If

Next

问题在于，由于某种原因它只进入第22列。我试图用其他方法来获取最后一列，但是他们刚刚给了我整个表格中的最后一列，这又不是我的意思想。

如果有人可以借给我一只手，因为我是新手，我们将不胜感激！

Answer 1

要查找最后使用的行，您是否尝试过

lastRow = ActiveSheet.UsedRange.Rows.Count

如果这不起作用，请详细说明出了什么问题，我可以提交更多代码。