人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ExcelでもしAW列にデータがあれば、指定したデータをペーストしていきたい。

今、AW?BE列の10行目に、文字列データが入っています。

AW|AX|AY|AZ|BA|BB|BC|BD|BE
10行目 あ|い|う|え|お|か|き|く|け

この状況におきまして、AW列を除くAX?BE(い?け)のデータを
コピーします。(?)

そして11行目以下、55000行ぐらいまで、?のデータを貼り付けて
いきたいのです。(?)

しかし条件がありまして、もしAW列に、文字列データではなく
空白セルがあった場合、?の貼り付け処理は行わないでほしいのです。

そのような処理が可能なマクロ等、お教えいただけないでしょうか。
よろしくお願い致します。

●質問者: moon-fondu
●カテゴリ:コンピュータ 学習・教育
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● a-kuma3
●1800ポイント ベストアンサー

以下のコードを標準モジュールに貼り付けて、copy_ax_be サブルーチンを実行してください。

Sub copy_ax_be()
 row_end = 55000  ' 最終行
 row_base = 10
 col_base = 49  ' AW列

  ' AX10:BE10 をコピー
 Range(Cells(row_base, col_base + 1), Cells(row_base, col_base + 8)).Copy


  ' AW列が空じゃなかったら貼り付け
 For r = row_base + 1 To row_end
 Set cell = Cells(r, col_base)
 If Not IsEmpty(cell) And Not cell.Value = "" Then
 Cells(r, col_base + 1).Select
 ActiveSheet.Paste
 End If
 DoEvents
 Next
End Sub

終了行は、row_end で指定してますが、適宜変更してください。
AW列で値が入ってる最後まで、ということであれば、以下のように書けます。

 row_end = Cells(Rows.Count, col_base).End(xlUp).Row
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ