No.2ベストアンサー
- 回答日時:
>sheet2へ列をずらして(先頭列CをFへ)コピーできないでしょうか。
どうかよろしくお願いします。Sub ボタン1_Click()
Dim r As Range
ST = InputBox("元データの列")
EN = InputBox("挿入先の列")
For Each r In Range(ST & "1:" & ST & 10)
If WorksheetFunction.CountIf(Range("B10:B20"), r.Value) Then
Sheets("sheet2").Range(EN & r.Row).Value = r.Value
Else
Sheets("sheet2").Range(EN & r.Row).Value = ""
End If
Next
End Sub
こういった書き方は参考になるでしょうか。
エラー処理はしていません。
コピーしたい元データ列を取得する方法
データを入れたい列の取得する方法は?
とりあえず Inputbox にしましたが。
この回答への補足
有難うございます。元データーの範囲指定はできました。
sheet1のC1:G10範囲をsheet2の同じaddressではなくE1:I10の範囲にデータを出したいのですが。
添付の表では同じセル番地に入力するようになってましたが、sheet2のC,D列に追加項目が発生したためです。
申し訳ありませんがよろしくお願いします。
No.1
- 回答日時:
>Sheet2の先頭列がSheet1と同様ですがコピー位置がE1等、任意に設定したいのですが。
の部分の意味がよくわからないのですが?
とりあえず
Sheet1でコピーしたい範囲を選択しておいて
Sub ボタン1_Click()
Dim r As Range
For Each r In Selection
If WorksheetFunction.CountIf(Range("B12:B16"), r.Value) Then
Sheets("sheet2").Range(r.Address).Value = r.Value
Else
Sheets("sheet2").Range(r.Address).Value = ""
End If
Next
End Sub
意味は、選択した範囲のセルに対して繰り返し
もし、セルの値が、B12~B16にあれば 空白
なければ、セルの値を入れる
といった感じです。
ご希望に合わせて編集してみて下さい。
この回答への補足
有難うございます。範囲を SelectionせずRangeでコード指定できないでしょうか。
また、sheet2へ列をずらして(先頭列CをFへ)コピーできないでしょうか。どうかよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 別sheetからの転記なのですが 2 2023/05/22 15:55
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) VBA active sheetをPDF化して指定フォルダに保存 1 2022/07/07 11:27
- Visual Basic(VBA) VBA Userform転記のみ編集可 1 2023/06/29 11:03
- Visual Basic(VBA) VBAでvlookup関数から、別シート参照するやり方・・・ 2 2022/11/14 18:49
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Excel(エクセル) エクセルでのコピーペースト 6 2022/09/03 07:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字列の結合を空白行まで実行
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
【VBA】2つのシートの値を比較...
-
B列の最終行までA列をオート...
-
Changeイベントでの複数セルの...
-
VBAを使って検索したセルをコピ...
-
エクセルでフォームのチェック...
-
VBA 値と一致した行の一部の列...
-
VBAで、特定の文字より後を削除...
-
VBAで10行おきにセルの下に罫線...
-
VBAコンボボックスで選択した値...
-
データグリッドビューの一番最...
-
マクロ 最終列をコピーして最終...
-
VBAのFind関数で結合セルを検索...
-
rowsとcolsの意味
-
空白セルをとばして転記
-
追記する列を増やしたい 2つの...
-
【VBA】複数行あるカンマ区切り...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
VBAのコードを教えてください
-
VBAを使って検索したセルをコピ...
-
B列の最終行までA列をオート...
-
エクセルvbaについて
-
vba 2つの条件が一致したら...
-
Excelで、あるセルの値に応じて...
-
VBA UserFormからの転記で
-
VBAのFind関数で結合セルを検索...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
Changeイベントでの複数セルの...
-
エクセルVBAにて =A1=B1とすれ...
-
【VBA】2つのシートの値を比較...
-
データグリッドビューの一番最...
-
VBマクロ 色の付いたセルを...
-
VBAで指定範囲内の空白セルを左...
おすすめ情報