画像の通りにマクロでO列を基準にして上の行をコピーするコードを
教えてもらいましたがこれを別シート(入力シート)から実行したいんですけれども
どのようにしたらいいでしょうか
Sub 空白の行の上をコピーする()
Const START_COLUMN = 1 'A列
Const END_COLUMN = 14
Dim lastRow As Long
lastRow = Cells(Rows.Count, "O").End(xlUp).Row 'O列の最終行を取得
Dim i As Long
For i = 1 To lastRow
If Cells(i, START_COLUMN) = "" Then
Range(Cells(i, START_COLUMN), Cells(i, END_COLUMN)).Value = Range(Cells(i, START_COLUMN).Offset(-1, 0), Cells(i, END_COLUMN).Offset(-1, 0)).Value
End If
Next
End Sub
No.2ベストアンサー
- 回答日時:
CellsとかRangeで、シートを明示します。
普段からそうしないと、どこかで失敗します。
(2シートを使う例)
Dim WS1 As Worksheet ←WS1はシート名として使います、と宣言
Dim WS2 As Worksheet ←WS2はシート名として使います、と宣言
Set WS1 = Worksheets("Sheet1") ←WS1に実際のシート名を割り当てす。
Set WS2 = Worksheets("Sheet2") ←WS2に実際のシート名を割り当て
・
・
WS1.Cells(・・・・
WS1.Range(・・・・
の様に、シート名を明示しながら使います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) Excel VABについて 1.xlsm、VBA.xlsm2つのファイルがあり、1.xlsmにてVB 6 2021/12/13 17:46
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) VBA ある文字が含まれるセルの行をうまく削除出来ません 3 2021/10/30 22:07
- Excel(エクセル) マクロを修正できないものか、統合シートについて 3 2021/12/07 09:26
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
マクロのコードについて解説をお願いします
Excel(エクセル)
-
Excelの行をコピーして貼り付けても、 ドロップダウンが反映されません。 なぜでしょうか? シート
Excel(エクセル)
-
エクセル 条件付き書式設定
Excel(エクセル)
-
-
4
2013Excel保存済みファイルグレーアウト Excelを開こうとするとメニュー以外全てグレーにな
Excel(エクセル)
-
5
Excelでオートフィルをした時に,値のバグについて
Excel(エクセル)
-
6
こんにちは。Excelのデータ入力規則のことで教えてください。複数条件を指定したい場合の構文ですが、
Excel(エクセル)
-
7
エクセルの計算式について質問です 写真に表記してある、仕切りの部分の=B4✖️0.55のところを対象
Excel(エクセル)
-
8
Excelで、改行がある場合の条件式(関数)の書き方を教えてください
Excel(エクセル)
-
9
下記のような条件付き書式はどうやって設定したら良いのか教えていただきたいです。 180時間を満たない
Excel(エクセル)
-
10
エクセル 数値の10を10月と認識するにはどうすればいいですが?
Excel(エクセル)
-
11
Excel VBAについて【図形を組み合わせて作成した、料金別納表示の削除の仕方】
Excel(エクセル)
-
12
エクセル2016でfilter関数がないので、、抜き出す関数をおしえてください。
Excel(エクセル)
-
13
複雑なシフト表から1日ごとの出勤者、シフトを抜き出したいです
Excel(エクセル)
-
14
【Excel】エクセルでグループ化した線の図形を左右反転させる方法を教えてください。
Excel(エクセル)
-
15
【マクロ】セルの塗りつぶし色をbook1からbook2へ転記したい
Excel(エクセル)
-
16
Excel初心者です、教えてください。
Excel(エクセル)
-
17
指定した範囲から、文字A、文字Bの数をそれぞれカウントする数式が知りたいです。よろしくお願いします。
Excel(エクセル)
-
18
一つのフォルダーに50個のエクセルファイルがあります。 各ファイルにはAとBのシートがあります。 5
Visual Basic(VBA)
-
19
int関数について。
Excel(エクセル)
-
20
vba 今日の日付が変われば自動的にファイル名に
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで繰り返しコピーしながら下...
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
Excel の複数シートの列幅を同...
-
エクセル複数シートのデータを...
-
エクセルの列の限界は255列以上...
-
エクセル マクロ 標準モジュー...
-
エクセルで横並びの複数データ...
-
SUMPRODUCTにて別シートのデー...
-
Excelに自動で行の増減をしたい...
-
ある数値に対して、値を返す数...
-
VBAで検索して、行をコピー&追...
-
Excel複数シートにあるデータを...
-
Excelでの並べ替えを全シートま...
-
Excel 2段組み
-
エクセルの複数シートにあるデ...
-
【VBA】ピボットテーブルを既存...
-
エクセルで小の月(29日以下)の...
-
excel 複数のシートの同じ場所...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
文字の色も参照 VLOOKUP
-
オートフィルタ使用時にCOUNTIF...
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
エクセル関数に詳しい方、教え...
-
【条件付き書式】countifsで複...
-
Excel の複数シートの列幅を同...
-
エクセル マクロ 標準モジュー...
-
エクセルで横並びの複数データ...
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
VLOOKアップ関数の結果の...
-
SUMPRODUCTにて別シートのデー...
-
エクセルで、チェックボックス...
-
Excel VBA ピボットテーブルに...
-
【エクセル】1列のデータを交...
-
エクセルVBAで、ある文字を含ん...
-
エクセルのブック分割マクロを...
-
excel 複数のシートの同じ場所...
おすすめ情報