No.2ベストアンサー
- 回答日時:
> 1.Sheet2に表示させるデータを3行目からにする場合には、どのように変化させるのでしょうか?
> 2.Sheet2に表示させるデータをA列からD列にする場合には、どのように変化させるのでしょうか?
修正しました。
Sub tenki02()
Dim i As Integer, n As Integer
n = 3
For i = 3 To 100
If Sheets("Sheet1").Cells(i, 1) <> "" Then
Sheets("Sheet2").Cells(n, 4).Value = Sheets("Sheet1").Cells(i, 1)
n = n + 1
End If
Next
End Sub
No.1
- 回答日時:
VBAでやってみました。
シート1のA列にデータがとびとび入っていて、シート2のA列にデータを上から切れ目なく順番に表示させる方法です。
失敗するとまずいのでまずはバックアップをとってからテストしてみてください。
シート1のデータをとりあえず100行目まで対象にしましたが、For i = 1 To 100の100を変更すればいくつでもOKです。
1.Alt + F11 または、[ツール] メニューの [マクロ] をポイントし、 Visual Basic Editorをクリックします。
2.Visual Basic Editor ウィンドウのメニューから、 [挿入]→[標準モジュール] をクリックします。
3.表示されたコードウィンドウ(白く広い部分。カーソルが点滅していると思います。)に以下のマクロコード(SubからEnd Subまで)をコピペします。
4.ワークシートに戻り、[ツール] メニューの [マクロ] →「マクロ」で今貼り付けたマクロ名(tenki)を選択して、実行。
Sub tenki()
Dim i As Integer, n As Integer
For i = 1 To 100
If Sheets("Sheet1").Cells(i, 1) <> "" Then
n = n + 1
Sheets("Sheet2").Cells(n, 1).Value = Sheets("Sheet1").Cells(i, 1)
End If
Next
End Sub
この回答への補足
わざわざ、どうもありがとうございます。恐れ入りますが、もしできましたら、
1.Sheet2に表示させるデータを3行目からにする場合には、どのように変化させるのでしょうか?
2.Sheet2に表示させるデータをA列からD列にする場合には、どのように変化させるのでしょうか?
あつかましくてすみません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル VBA実行中のApplication.ScreenUpdatingについて 3 2023/07/13 21:06
- Excel(エクセル) エクセル:シフト表条件付き書式色付けのカウント方法 3 2022/10/11 21:59
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) 表内で、Enterキーで横→行の最後入力したら次の行の先頭に移動するマクロを作りたい 3 2022/05/01 21:19
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- その他(Microsoft Office) VBA CSV出力について 3 2023/04/19 14:14
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
Excelで数字を入れたら対応する...
-
自分の専門分野の仕事。初見で...
-
エクセルで複数のシートのクリ...
-
エクセルで特定の行だけ行削除...
-
【エクセル】「実行時エラー’10...
-
エクセル シート内の一番下のセ...
-
エクセル:セル内の文字列の最...
-
複数シートのグループ化ができ...
-
前月分を次月シートに繰越でき...
-
【エクセル】フリーワード検索...
-
EXCELのダイアログシートって、...
-
エクセルのマクロ実行後にカー...
-
Excelのシート上のShapeにイベ...
-
エクセルVBAでOUT LOOKメールに...
-
セルの一部分だけを太字にする方法
-
複数のブックに一括で値入力す...
-
Excelでセル内の文字をファイル...
-
excel定数の違いについて。xlAu...
-
「元に戻す」キーが働かない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
Excelで数字を入れたら対応する...
-
エクセルファイルを開いた回数...
-
エクセルで複数のシートのクリ...
-
エクセル シート内の一番下のセ...
-
【エクセル】「実行時エラー’10...
-
Excelのシート上のShapeにイベ...
-
エクセルで特定の行だけ行削除...
-
Excelでセル内の文字をファイル...
-
【エクセル】フリーワード検索...
-
長い時間かかるマクロが実行中...
-
エクセル:セル内の文字列の最...
-
EXCELのダイアログシートって、...
-
セルの一部分だけを太字にする方法
-
エクセルで○をつけるマクロ設定
-
エクセルマクロでファイル名や...
-
前月分を次月シートに繰越でき...
-
excelで画像のハイパーリンクを...
-
シートではなくBOOK間で重複し...
-
エクセルVBAで実行中画面を...
おすすめ情報