vbaを使用してExcelで使用される最後の列を取得する方法

Question

こんにちは私のシートに使用されている最後の列に問題があります。

最後の列が43で、列44に値を入力したいと思うので、再度検索すると最後に使用された列として44に進み、次に値を入力します45などのように。私は正しい行を見つけるためにref numを使用しています。

次のように私が使用していたコードは、問題は、何らかの理由でそれが唯一の私が取得する他の方法を使用しようとしましたコラム22に行くということである最後の列

'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 

を取得しようとすることです最後の列になっていますが、私はシート全体の最後の列を私に与えてくれましたが、これもまた私が望むものではありません。

誰かが私に手を貸すことができれば、私はこれを初心者にしていると大いに感謝します！それがうまくいかなかった場合は

Answer 1

使用された最後の行を検索するには、あなたが

lastRow = ActiveSheet.UsedRange.Rows.Count 

を試してみましたが、何が悪かったのか詳しく説明し、私はより多くのコードを提出することができますしてください。