No.1ベストアンサー
- 回答日時:
表①のシート名をSheet1とし、1行目が見出し
表②のシート名をSheet2とし、1行目が見出し
この条件で以下
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Set WS1 = Worksheets("Sheet1")
Set WS2 = Worksheets("Sheet2")
END1 = WS1.Range("A65536").End(xlUp).Row
Cnt2 = 1
For Cnt1 = 2 To END1
If WS1.Range("E" & Cnt1).Value = "あり" Then
For Cnt3 = 2 To 3
If WS1.Cells(Cnt1, Cnt3).Value <> "" Then
Cnt2 = Cnt2 + 1
WS2.Range("A" & Cnt2).Value = WS1.Range("A" & Cnt1).Value
WS2.Range("B" & Cnt2).Value = WS1.Range("E" & Cnt1).Value
WS2.Range("C" & Cnt2).Value = WS1.Cells(Cnt1, Cnt3).Value
End If
Next Cnt3
End If
Next Cnt1
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) Excelの複数ファイルの複数行を別ファイル1つのシートにVBA、マクロで集約する方法 5 2022/09/13 06:30
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Excel(エクセル) エクセルで対象日に該当するデータがある場合に別表へ全対象者を表示させたい。 3 2023/07/12 09:48
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
前の(左隣の)シートを連続参...
-
エクセルでファイルを開いたと...
-
VBAでシートコピー後、シート名...
-
エクセルVBAでパスの¥マークに...
-
EXCELで1ヶ月分の連続した日付...
-
EXCELで同一フォーマットのシー...
-
Excelで金銭出納帳。繰越残高を...
-
別シート参照のセルをシート毎...
-
シートの保護のあとセルの列、...
-
エクセルで前のシートを連続参...
-
シート番号からシート名を取得する
-
Excel 連番を入力する方法
-
Accessのスプレッドシートエク...
-
エクセル 計算式も入っていない...
-
EXCEL:同じセルへどんどん足し...
-
複数シートの特定の位置に連番...
-
エクセルで前シートを参照して...
-
エクセルで「ウィンドウを元の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
エクセルVBAでパスの¥マークに...
-
Excelで金銭出納帳。繰越残高を...
-
別シート参照のセルをシート毎...
-
EXCEL:同じセルへどんどん足し...
-
エクセルでファイルを開いたと...
-
エクセルでシート名を自動入力...
-
EXCELで同一フォーマットのシー...
-
シートの保護のあとセルの列、...
-
EXCELで1ヶ月分の連続した日付...
-
エクセルで前のシートを連続参...
-
VBAでシートコピー後、シート名...
-
前の(左隣の)シートを連続参...
-
エクセル 計算式も入っていない...
-
Accessのスプレッドシートエク...
-
エクセルで前シートを参照して...
-
VBAで条件によりフォントサイズ...
-
エクセルで複数設定したハイパーリンク先...
-
エクセルのシート名をリスト化...
おすすめ情報
表①は、上にある表です。
表②は、下にある表です。