| |
マクロ初心者 さん こんにちは
>エクセルSheetの最終行セルの値を End(xldown)で取得した後、
>その値を変数に入れて使用したいのですが、その方法を教えてください。
宣言時に（Dim） Range型にしておいて、
Set で変数にぶち込むのが、簡単だと思います。
Sub Macro1()
Dim T_range As Range
Set T_range = ActiveSheet.Range("A1").End(xlDown)
With T_range
Debug.Print .Address & "の色は " & .Interior.ColorIndex
End With
End Sub
こんな方法も
Sub BB()
Dim r As Long
Dim c As Long
r = ActiveSheet.Range("A1").End(xlDown).Row
c = ActiveSheet.Range("A1").End(xlDown).Column
With ActiveSheet.Cells(r, c)
Debug.Print .Address & "の色は " & .Interior.ColorIndex
End With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
