No.1ベストアンサー
- 回答日時:
こんなカンジで。
Sub macro2()
Dim i, j
For i = 1 To Range("A65536").End(xlUp).Row Step 3
For j = 1 To 2
Cells(i, "A").Offset(j, 0).Cut Destination:=Cells(i, "A").Offset(0, j)
Next j
Next i
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
No.3
- 回答日時:
自分なら、一回配列に読み込んで貼り付けなおします。
Sub Sample()
Dim vData, nLast, i
nLast = Range("A" & Rows.Count).End(xlUp).Row
vData = Range(Cells(1, 1), Cells(nLast, 1))
Range(Cells(1, 1), Cells(nLast, 1)).Clear
For i = 0 To (nLast - 1)
Cells(Int(i / 3) + 1, i Mod 3 + 1) = vData(i + 1, 1)
Next i
End Sub
No.2
- 回答日時:
keithin さんには遠く及びませんが、挑戦してみた
Sub Macro1()
Dim 最終行 As Long
最終行 = Range("A" & Rows.Count).End(xlUp).Row
If 最終行 < 4 Then Exit Sub
Range("B:C").ClearContents
Columns("D:D").Insert Shift:=xlToRight
Range("B1:B" & Int((最終行 + 1) / 3)).FormulaR1C1 = "=INDEX(C1,ROW()*3-3+COLUMN())"
Range("C1:C" & Int(最終行 / 3)).FormulaR1C1 = "=INDEX(C1,ROW()*3-3+COLUMN())"
Range("D1:D" & Int((最終行 - 1) / 3)).FormulaR1C1 = "=INDEX(C1,ROW()*3-3+COLUMN())"
Range("B1:D" & Int((最終行 + 1) / 3)).Value = Range("B1:D" & Int((最終行 + 1) / 3)).Value
Range("A2:A" & Int((最終行 + 2) / 3)).Value = Range("D1:D" & Int((最終行 - 1) / 3)).Value
Columns("D:D").Delete Shift:=xlToLeft
Range("A" & Int((最終行 + 5) / 3), "A" & 最終行).ClearContents
End Sub
長い。。。 けど、処理は速いかな
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Excel(エクセル) Excel処理について、教えて下さい。 下記表は、サンプルです。(実際には千件以上あります) A列に 6 2023/03/16 18:21
- Excel(エクセル) excelのマクロ実行でブロックされます。 2 2022/06/08 09:14
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/07/13 12:31
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/02/07 09:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
Officeの字体
-
Microsoft365で自動保存が出来...
-
Microsoft 365 の一般法人向け...
-
Outlookで、任意のメールアドレ...
-
英数字のみ全角から半角に変換
-
Microsoft Formsの「個人情報や...
-
Office2021を別のPCにインスト...
-
Outlook 電源OFFの受診の仕方
-
Microsoft365で写真をアルバム...
-
outlookのメールが固まってしま...
-
マイクロソフト 一時使用コード...
-
office365って抵抗感ないですか?
-
会社PCのメールが更新されない
-
Outlook で宛先が複数の場合の人数
-
Excel 日付を比較したら、同じ...
-
Microsoft Officeを2台目のPCに...
-
【Excel VBA】PDFを作成して,...
-
マクロ自動コピペ 貼り付ける場...
-
VBAファイルの保存先について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで複数行を1行にす...
-
大東建託の審査について
-
印紙が破れた場合
-
個人事業主の届出 異なる業種...
-
手形にはってある印紙
-
片方にだけ印紙を貼った場合、...
-
不動産バブルで、殆どが分譲か...
-
家を一括で買えるなら賃貸か持...
-
賃貸物件 退去日のいざこざにつ...
-
同一生計でない親族から事業用...
-
買う? 賃貸?
-
農地転用の費用は確定申告時に...
-
シャワーカーテン、どっちが内側?
-
税理士の見積もりについて
-
2/6に賃貸マンションの退去の立...
-
注文請書の破棄の仕方
-
10万円を超える絵画。減価償却?
-
注文請書
-
レオパレスと大東建託 どちらが...
-
印紙税の税務調査があります。
おすすめ情報