Excelとか・・・

​

​最終行まで選択してコピーする​

​

※前提：コピーしたい列の先頭の行を選択しておく

Sub 列コピー()

　Dim r As Long　'行番号を格納
　Dim c As Long　'列番号を格納
　Dim LastR As Long　'最終行を格納

　r = Selection.Row　'選択したセルの行番号を取得
　c = Selection.Column　'選択したセルの列番号を取得
　LastR = Cells(Rows.Count, c).End(xlUp).Row　'選択したセルの最終行を取得

　Range(Cells(r, c), Cells(LastR, c)).Copy　'コピーする

​​End Sub

最後の一文は切り取りでも良いし、記述しなくても良い​​

[引用元]
​​​Excelのこととか色々​​​
​​​※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。​

		​​​​