No.1ベストアンサー
- 回答日時:
淡々と順繰りに転記していくだけの作業です。
sub macro1()
dim c as long
dim r as long
worksheets("Sheet1").select
worksheets("Sheet2").range("A:E").clearcontents
worksheets("Sheet2").range("A1:E1") = array("Gr","Num","V1","V2","V3")
for c = 2 to 12 step 5
if cells(4, c + 1) <> "" then
r = cells(65536, c + 1).end(xlup).row
range(cells(4, c), cells(r, c + 3)).copy _
destination:=worksheets("Sheet2").range("B65536").end(xlup).offset(1)
worksheets("Sheet2").range("A65536").end(xlup).offset(1).resize(r - 3, 1).value = cells(2, c).value
end if
next c
end sub
この回答への補足
ありがとうございます。
A1に array("Gr","Num","V1","V2","V3")
の内容が入っているのですが、こちらを削って、A1から結果が表示されるようにするにはどうすればいいでしょうか?
No.3
- 回答日時:
ん?
要らない行は削除します。
sub macro1r1()
dim w1 as worksheet
dim c as long
dim r as long
set w1 = worksheets("Sheet1")
worksheets("Sheet2").select
range("A:E").clearcontents
for c = 2 to 12 step 5
if w1.cells(4, c + 1) <> "" then
r = w1.cells(65536, c + 1).end(xlup).row - 3
w1.cells(4, c).resize(r, 4).copy _
destination:=range("B65536").end(xlup).offset(1)
range("A65536").end(xlup).offset(1).resize(r, 1).value = w1.cells(2, c).value
end if
next c
range("1:1").delete shift:=xlshiftup
end sub
などで。
No.2
- 回答日時:
私も基本はNo.1さんと変わりませんが、
一例となれば幸いです。
Sub Macro()
Dim i As Integer
Dim j As Integer
Dim lngEndRow As Long
j = 1 'Sheet2の1行目
For i = 3 To 13 Step 5 'Sheet1の3,8,13列目
lngEndRow = 0
lngEndRow = Sheets("Sheet1").Cells(65536, i).End(xlUp).Row
If lngEndRow >= 4 Then
Sheets("Sheet1").Range(Sheets("Sheet1").Cells(3, i), Sheets("Sheet1").Cells(lngEndRow, i + 2)).Copy
Sheets("Sheet2").Cells(j, 1).PasteSpecial
j = j + lngEndRow
End If
Next
End Sub
この回答への補足
タイトル1文1
100タイトル1文1タイトル2文2
200タイトル2文2タイトル3文3
300タイトル3文3タイトル4文4
400タイトル4文4タイトル1文1
22222タイトル2文2
23333タイトル3文3
タイトル4文4
111タイトル1文1タイトル5文5
222タイトル2文2タイトル6文6
333タイトル3文3タイトル1文1
444タイトル4文4タイトル2文2
555タイトル5文5タイトル3文3
666タイトル6文6
11タイトル1文1
22タイトル2文2
33タイトル3文3
ありがとうございます。
しかしためしたところ、結果が違うようでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Excel(エクセル) 簡単なエクセルマクロについて 4 2023/02/20 10:22
- Excel(エクセル) Excel_マクロ_複数のシートのVLOOKUPで表示された#N/A以外に色付けをしたいです 1 2023/02/16 22:37
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) マクロか関数で処理したいのですが、教えて頂けませんか。 8 2022/10/31 15:18
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAで2~4列目の3行目...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセル関数>参照ファイル名...
-
エクセル ボタンに設定したマク...
-
エクセルの表を複数枚印刷した...
-
エクセル連番自動印刷について
-
【Excel VBA】マクロでExcel自...
-
マクロの保存先、開いてるすべ...
-
エクセル;相対パスを絶対パスへ...
-
【Excel】マクロの保存先について
-
エクセルで、「いいね」のよう...
-
マクロをマクロを使ってコピー...
-
エクセルファイルを値でのみし...
-
エクセル マクロ名にブック名...
-
エクセルの、記録を終了したマ...
-
Excelのマクロでボタンを押すと...
-
Excelでマクロ実行中に画面を固...
-
複数のマクロボタンをまとめて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAで2~4列目の3行目...
-
度々失礼します。VBAのプログラ...
-
エクセルVBAの配列について
-
VBA マクロを使って、コピー ...
-
EXCEL VBA 自動で8行毎に行を挿...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
Excelのマクロでボタンを押すと...
-
エクセル関数>参照ファイル名...
-
エクセル ボタンに設定したマク...
-
エクセルで、「いいね」のよう...
-
【Excel VBA】マクロでExcel自...
-
エクセルの表を複数枚印刷した...
-
マクロの保存先、開いてるすべ...
-
エクセル マクロ名にブック名...
-
エクセルの、記録を終了したマ...
-
エクセル;相対パスを絶対パスへ...
-
エクセルマクロで、別のブック...
-
複数のマクロボタンをまとめて...
おすすめ情報