
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
No.11
- 回答日時:
ユーザーフォームモジュールをダミー?的に追加すれば、直接取り出せますね。
http://officetanaka.net/excel/vba/tips/tips20.htm
一案としてですけど例えばD3になら、
Sub try()
Dim CB As New DataObject
With CB
.GetFromClipboard ''クリップボードからDataObjectにデータを取得する
Range("D3").Value = .GetText ''DataObjectのデータを変数に取得する
End With
End Sub
ユーザーフォームは無視でお願いいたします。
既出の回答から更に進めるってなら勉強にもなるかと。
気になるのはそのセル範囲に空白がなかった場合、『今回は貼り付け不可能』とか『もう次回は貼り付けできません』など、貼り付け実行前後にメッセージが必要なのかどうかかな?
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.7
- 回答日時:
No6の方の解釈がただしいかも知れませんね。
何れにしろ、質問者の方から、返信があると思いますので、もし私の提示したマクロが期待した動作でなかった場合は、その時対応したいと思います。
No.6
- 回答日時:
No.5様。
私の勝手な思い込みかもですから後程質問者様から補足があると思います。
ただ同じ文章を拝見した際に、
・コピー元は特定の場所ではなく作業者が任意に選択しコピー作業をする。
・コピー先は決められたセル範囲の内、空白セルがあった所に貼り付ける。
・上記の作業をマウスで操作していると右クリックの手間がかかり、且つ抜き出す文章もそれなりにある。
・コピー元は仕方ないにしてもコピー先についてはボタン(イベント?)を押すだけで順次貼りついて欲しい(かな?)と考えついた。
と受け取りましたね。
まぁ読解力がないと質問者に言われた事もあるボケジジィなので、私の間違いであれば申し訳ないです。
No.5
- 回答日時:
No4様
D3~D33の全ての空白のセルへ同じものを貼り付ける仕様で作成しています。
No2の回答のお礼に
「事前にあるサイトの一部の文字なみをコピーします。ペーストだけをマクロボタンで作業したいのです。量がたくさんあり、繰り返し作業するので...」
とあり、1回限りではないと、推測しました。
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列はセルの結合をしております。
何度もすいません。
ご教示よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
教えて!gooグレードポイントがdポイントに変わります!
dアカウント連携を行っていただくと、グレードに応じて「dポイント」が進呈されるようになります。
-
VBA CSV取り込みについて
Visual Basic(VBA)
-
VBAでtxtファイルを読み込む際にtabを認識したい
Visual Basic(VBA)
-
Excelマクロのコードができる方に質問します。
Visual Basic(VBA)
-
4
VBA 自作カレンダー コマンドボタンについて
Visual Basic(VBA)
-
5
複数のcsvをVBAでマージする方法をご教示ください!
Visual Basic(VBA)
-
6
連想配列について
Visual Basic(VBA)
-
7
Excel VBAでフォルダ内の全テキストファイルの任意データを取得について
Visual Basic(VBA)
-
8
VBAの質問です msg = ws.Cells(r, A").Value & "日に" & ws."
Visual Basic(VBA)
-
9
VBAで、オートフィルタで非表示になっている行の高さを取得したい
Visual Basic(VBA)
-
10
リストボックスについて
Excel(エクセル)
-
11
エクセルでカレンダーマクロの作成について
Visual Basic(VBA)
-
12
Excel VBA エクセル マクロ リスト上 条件一致 コピペ 繰り返す
Visual Basic(VBA)
-
13
VBA 過去のファイル内の同じオブジェクトを一括削除
Visual Basic(VBA)
-
14
配列の重複する値とその個数を取得したい
Visual Basic(VBA)
-
15
シート名をセルの値にするマクロについての質問
Visual Basic(VBA)
-
16
vba 環境依存文字がListViewボックスに設定すると化ける
Visual Basic(VBA)
-
17
対象フォルダの選択画面を出したい
Visual Basic(VBA)
-
18
VBA sum ワークシートChange
Visual Basic(VBA)
-
19
Excelマクロ&VBAでユーザーフォームで3択問題を作ってみました。
Visual Basic(VBA)
-
20
別々にワークブック保存
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
セル色なしの行一括削除
-
5
特定のセルが空白だったら、そ...
-
6
VBAでセルに値が入ったときにイ...
-
7
【EXCEL VBA】Range("A:A").Fi...
-
8
【VBA】指定したセルと同じ値で...
-
9
EXCELで変数をペーストしたい
-
10
3桁または4桁の数値を時刻に...
-
11
Excelのハイパーリンクにマクロ...
-
12
【VBA ・ エクセル】 テキスト...
-
13
VBAでマクロ実行中はExcelのマ...
-
14
特定の範囲内に空白セルがいく...
-
15
エクセルVBAで結合セルの真ん中...
-
16
VBAマクロで結合セルを含む列に...
-
17
EXCELのVBA-フィルタ抽出後の...
-
18
エクセルvba:自己セルの情報取...
-
19
DataGridViewの各セル幅を自由...
-
20
任意フォルダから画像をすべて...
おすすめ情報
公式facebook
公式twitter
説明足らずですいません。
例えば、D3が空白であればD3にペーストし、
D3が空白でなければD4にペーストし、
D3とD4が空白でなければD5にペーストする。
ようなことをしたいのです。それを33行目まで行いたいです。
さらにD~G列はセルの結合をしております。
ご教示よろしくお願いいたします。