VBA 最終列に入力された値の表示について

質問

VBAで最終列に入力された値の表示について教えてください。

例えば10行目の10列目(J列)に”123”と入力された値をセル”D1”に表示させたいのですがどのようにすればよいのでしょうか。

A列の最終行については

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
r = Cells(Rows.Count, 1).End(xlUp).Row
Range("D1").Value = Cells(r, 1).Value
End Sub

でうまく表示できたのですが、最終列についてなかなかうまくいきません。

どなたかご指南ください宜しくお願いします。

回答No.2

hige_082 · ベストアンサー

'A列の最終行、1行目の最終列
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long, c As Long
r = Cells(Rows.Count, 1).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
Range("D1").Value = Cells(r, c).Value
End Sub

回答No.1

rukuku

こんばんは
以下のソースを試してみてください。

Sub sumple()
Dim c As Long
c = Cells(10, Columns.Count).End(xlToLeft).Column
Range("D1").Value = Cells(10, c).Value
End Sub

「xlToLeft」の部分が「xlLeft」ではダメですよ(^.^)
という私も、やってみてうまくいかなくて、「マクロの記録」で出来たソースを見て分かりました。