000000 ランダム
 HOME | DIARY | PROFILE 【フォローする】 【ログイン】

Excelとか・・・

Excelとか・・・

【毎日開催】
15記事にいいね!で1ポイント
10秒滞在
いいね! --/--
おめでとうございます!
ミッションを達成しました。
※「ポイントを獲得する」ボタンを押すと広告が表示されます。
x

PR

Free Space

にほんブログ村 その他生活ブログ 日課・生活習慣へ にほんブログ村 家族ブログ 家族情報へ にほんブログ村 その他生活ブログ 買い物・お使いへ

Profile

tuna725

tuna725

Archives

2024/06
2024/05
2024/04
2024/03
2024/02
2024/02/02
XML
カテゴリ: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のこととか色々」で公開したブログの簡易版です。​




​​​​





お気に入りの記事を「いいね!」で応援しよう

Last updated  2024/02/02 08:38:30 AM
コメント(0) | コメントを書く



© Rakuten Group, Inc.