No.3
- 回答日時:
以下のマクロを標準モジュールに登録してください。
Public Sub 貼り付け()
Dim wrow As Long
For wrow = 3 To 33
If Cells(wrow, "D").Value = "" Then
Cells(wrow, "D").Select
ActiveSheet.PasteSpecial Format:="テキスト", Link:=False, DisplayAsIcon:=False
End If
Next
End Sub
説明足らずですいません。
例えば、D3が空白であればD3にペーストし、
D3が空白でなければD4にペーストし、
D3とD4が空白でなければD5にペーストする。
ようなことをしたいのです。それを33行目まで行いたいです。
さらにD~G列はセルの結合をしております。
何度もすいません。
ご教示よろしくお願いいたします。
No.5
- 回答日時:
No4様
D3~D33の全ての空白のセルへ同じものを貼り付ける仕様で作成しています。
No2の回答のお礼に
「事前にあるサイトの一部の文字なみをコピーします。ペーストだけをマクロボタンで作業したいのです。量がたくさんあり、繰り返し作業するので...」
とあり、1回限りではないと、推測しました。
No.6
- 回答日時:
No.5様。
私の勝手な思い込みかもですから後程質問者様から補足があると思います。
ただ同じ文章を拝見した際に、
・コピー元は特定の場所ではなく作業者が任意に選択しコピー作業をする。
・コピー先は決められたセル範囲の内、空白セルがあった所に貼り付ける。
・上記の作業をマウスで操作していると右クリックの手間がかかり、且つ抜き出す文章もそれなりにある。
・コピー元は仕方ないにしてもコピー先についてはボタン(イベント?)を押すだけで順次貼りついて欲しい(かな?)と考えついた。
と受け取りましたね。
まぁ読解力がないと質問者に言われた事もあるボケジジィなので、私の間違いであれば申し訳ないです。
No.7
- 回答日時:
No6の方の解釈がただしいかも知れませんね。
何れにしろ、質問者の方から、返信があると思いますので、もし私の提示したマクロが期待した動作でなかった場合は、その時対応したいと思います。
No.9
- 回答日時:
>例えば、D3が空白であればD3にペーストし、
>D3が空白でなければD4にペーストし、
>D3とD4が空白でなければD5にペーストする。
>ようなことをしたいのです。それを33行目まで行いたいです。
D3~D33のセルで、D3とD5が空白の場合、D3とD5にペーストするというこでしょうか。その場合、D3とD5は同じ内容になります。
それとも、D3にのみペーストして、マクロを終了するのでしょうか。
>さらにD~G列はセルの結合をしております。
結合セルに直接ペーストすることはできません。一旦、単独セルにペーストし、その単独セルの内容を結合セルにコピーする必要があります。
どこか空いている単独セルを提示してください。(例 Z1 等)
>D3~D33のセルで、D3とD5が空白の場合、D3とD5にペーストするという>こでしょうか。その場合、D3とD5は同じ内容になります。
>それとも、D3にのみペーストして、マクロを終了するのでしょうか。
この場合はD3のみペーストしたいです。
また、空いているセルはBA6でお願いします。
No.10ベストアンサー
- 回答日時:
以下のマクロを標準モジュールに登録してください。
Public Sub 貼り付け()
Dim wrow As Long
For wrow = 3 To 33
If Cells(wrow, "D").Value = "" Then
Range("BA6").Select
ActiveSheet.PasteSpecial Format:="テキスト", Link:=False, DisplayAsIcon:=False
Cells(wrow, "D").Value = Range("BA6").Value
Range("BA6").Value = ""
Cells(wrow, "D").Select
Exit For
End If
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) EXCEL VBAでA列にある空白行より下の行すべてを削除する方法を教えてください。 3 2023/02/17 07:02
- Excel(エクセル) エクセルのセル値に対応してマクロを実行する方法を教えてください セルA1が「1」の時にマクロ名「マク 2 2022/06/19 18:45
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Visual Basic(VBA) vba 隣のセルに値がある行だけ関数をコピー&ペーストしたい A1 100001 A2 100002 1 2023/01/28 14:29
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Visual Basic(VBA) 複数のシートを一つのシートにまとめたい 左から3番目以降のシートのE列のセルに⚪︎が入っている行を抽 2 2022/09/18 18:42
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のセルが空白だったら、そ...
-
ExcelVBAを使って、値...
-
VBAでセルをクリックする回...
-
VBからEXCELのセルの値を取得す...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
【Excel】指定したセルの名前で...
-
Sub 要具ライフ() ActiveSheet....
-
任意フォルダから画像をすべて...
-
i=cells(Rows.Count, 1)とi=cel...
-
【VBA】飛び飛びの3セルに"完了...
-
Excel VBAで比較して数値があっ...
-
Excel VBA、 別ブックの最終行...
-
【Excel VBA】指定行以降をクリ...
-
TODAY()で設定したセルの日付...
-
エクセル(Excel) ワイルドカー...
-
EXCELで変数をペーストしたい
-
エクセルVBAで、シート上で結合...
-
ExcelのVBAで数字と文字列をマ...
-
VBAの計算で@が出てしまう件
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報
説明足らずですいません。
例えば、D3が空白であればD3にペーストし、
D3が空白でなければD4にペーストし、
D3とD4が空白でなければD5にペーストする。
ようなことをしたいのです。それを33行目まで行いたいです。
さらにD~G列はセルの結合をしております。
ご教示よろしくお願いいたします。