画像の通りにマクロで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
エクセルの計算式について質問です 写真に表記してある、仕切りの部分の=B4✖️0.55のところを対象
Excel(エクセル)
-
5
下記のような条件付き書式はどうやって設定したら良いのか教えていただきたいです。 180時間を満たない
Excel(エクセル)
-
6
エクセル 数値の10を10月と認識するにはどうすればいいですが?
Excel(エクセル)
-
7
Excel VBAについて【図形を組み合わせて作成した、料金別納表示の削除の仕方】
Excel(エクセル)
-
8
int関数について。
Excel(エクセル)
-
9
エクセル 関数
Excel(エクセル)
-
10
エクセルの計算式で教えてほしいことがあります 5000+1500✖️1.1✖️4 その後100のくら
Excel(エクセル)
-
11
一つのフォルダーに50個のエクセルファイルがあります。 各ファイルにはAとBのシートがあります。 5
Visual Basic(VBA)
-
12
Excelについて質問です。 タブキーを押すと編集しているセルが右隣に移りますが、私はタブキーを押し
Excel(エクセル)
-
13
エクセル CSVファイルについて
Excel(エクセル)
-
14
Excel vba 重複削除、連番に並び替え
Excel(エクセル)
-
15
算数、数学解りません。 足し、引き、掛け、割り算程度しか出来なくても、Excel覚えられますか?
Excel(エクセル)
-
16
エクセルの数式で教えてください。
Excel(エクセル)
-
17
マクロの作り方で質問です。
Excel(エクセル)
-
18
エクセルのマクロについて教えてください。 マクロを実行すると コピー先のフォルダ名を検索して、条件に
Excel(エクセル)
-
19
この場合に使用するエクセルの関数を教えてください。
Excel(エクセル)
-
20
Excelのデータの入力規則が薄くなって クリック出来ません。 なぜでしょうか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
【条件付き書式】countifsで複...
-
ExcelのVlookup関数の制限について
-
Excel 2段組み
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
Excel の複数シートの列幅を同...
-
VLOOKアップ関数の結果の...
-
別シートから月(MONTH)で抽出す...
-
Excelで担当者に対応した業務一...
-
Excelで、ファイル名、シート名...
-
Excelで列幅が異なる表を左右に...
-
【マクロ】あいうえお順のシー...
-
エクセルVBA 行追加時に自...
-
Excel複数シートにあるデータを...
-
文字の色も参照 VLOOKUP
-
【エクセル】1列のデータを交...
-
エクセルシートのデータを1列飛...
-
エクセルのグラフのマクロでエ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
Excel の複数シートの列幅を同...
-
エクセルで横並びの複数データ...
-
【条件付き書式】countifsで複...
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
SUMPRODUCTにて別シートのデー...
-
エクセル マクロ 標準モジュー...
-
VLOOKアップ関数の結果の...
-
エクセルで、チェックボックス...
-
Excel VBA ピボットテーブルに...
-
オートフィルタ使用時にCOUNTIF...
-
スプレッドシートでindexとIMPO...
-
エクセルVBAで、ある文字を含ん...
-
エクセルのブック分割マクロを...
-
【VBA】複数のシートの指定した...
-
Excel複数シートにあるデータを...
おすすめ情報