No.2ベストアンサー
- 回答日時:
こんにちは
・元のデータがあるシート名は「Sheet1」と仮定しました。
・コピーする対象はB~Dで良いものと仮定しました。
(列数が異なる場合は、ループ数を修正してください)
Sub Q12952539()
Dim rng As Range, col As Long
With Worksheets("Sheet1")
On Error Resume Next
For col = 2 To 4
Set rng = Worksheets(.Cells(1, col).Text).Range("D7")
If Err.Number = 0 Then
rng.Resize(103).Value = .Cells(2, col).Resize(103).Value
End If
Next col
On Error GoTo 0
End With
End Sub
No.1
- 回答日時:
こんにちは
>VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください。
には、条件が足りませんが、
シート名が書いてあるセルを選択して
その下の1行から№104行のデータを選択したシート名のD7より出力する
コードです。
シート名などが無ければエラーが返りますのでエラールーチンを加える必要があります
Sub test()
Dim acvCell As Range
Set acvCell = Selection
Worksheets(acvCell.Text).Range("D7:D109").Value = acvCell.Offset(1).Resize(103).Value
acvCell.Select
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA セルの値と同じ名前のシートにデータを補填するやり方を教えてください エクセルのブックがありま
Excel(エクセル)
-
セルの値と同じ名前のシートをアクティブにするには?
Excel(エクセル)
-
VBA シート名が一致した場合の転記内容について
Visual Basic(VBA)
-
-
4
エクセルVBA Ifでシート名が合致したら別ファイルから転記する場合のElse IfとForの書き方
Visual Basic(VBA)
-
5
マクロ セルに入力されたシートを選択する
Excel(エクセル)
-
6
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
7
Excel VBA セルと同じ名前のブックを呼び出し、呼び出したシートをコピーする方法について こん
Excel(エクセル)
-
8
【VBA】指定した検索条件に一致したら別シートに転記したい
Visual Basic(VBA)
-
9
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
10
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
11
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
12
エクセルVBA セルに表示されたテキストと同じ名前のファイルを開きたい
Excel(エクセル)
-
13
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
14
VBAで文字列を数値に変換したい
Excel(エクセル)
-
15
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
16
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
17
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
18
複数のExcelファイルにある同名シートを1つのシートに一括でまとめるには?
Excel(エクセル)
-
19
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
20
エクセル A8と同じシート名のG32のセルを参照するには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで入力シートから別シ...
-
エクセル マクロを使って日々...
-
VBA セルの値と同じ名前のシー...
-
EXCEL VBA 一致しないデータの...
-
Excel ハイパーリンク先のセル...
-
Excelの中央値の複数条件について
-
ExcelVBAで、指定したシートに...
-
IF, ISNUMBER, INDIRECTの組み...
-
VBAのoffsetの動き方について教...
-
エクセルで入力→日付を自動判別...
-
Excel 複数のシートからグラフ...
-
エクセルのワークシートが重く...
-
質問:特定文字列から空白行ま...
-
エクセルVBA:表の内容を担当者...
-
指定した日付の範囲内でデータ...
-
Excelで数値→文字列変換で指数...
-
テキストボックス内の文字のふ...
-
Excelで行ごとコピー、同じ行を...
-
エクセルでグラフタイトルが折...
-
Excelの関数について、特定の文...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで入力シートから別シ...
-
Excel 複数のシートからグラフ...
-
Excelの中央値の複数条件について
-
VBA セルの値と同じ名前のシー...
-
ExcelVBAで、指定したシートに...
-
Excel ハイパーリンク先のセル...
-
IF, ISNUMBER, INDIRECTの組み...
-
エクセルのワークシートが重く...
-
エクセル シフト勤務表から、...
-
VBAでシート名をセルから取得し...
-
エクセルで入力→日付を自動判別...
-
エクセルVBA:表の内容を担当者...
-
質問:特定文字列から空白行ま...
-
エクセル マクロを使って日々...
-
VBAのoffsetの動き方について教...
-
エクセル自動の年月
-
エクセル:複数シートのデータ...
-
ピボットテーブルから抽出デー...
-
エクセルについて質問です 日付...
-
Excelの選択肢をポップアップリ...
おすすめ情報