A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
下記のマクロを、開発-VisualBasic で開いたウインドウに貼りつけて、実行ください。
A列からS列までデータがはいっていると書いてありますが、このマクロは列単位で別シートにコピーするようになっています。支障あれば修正ください。
元データのバックアップをとってから、マクロを実行してください。
Sub Macro1()
Dim original_sheetname
Dim i, same As Integer
original_sheetname = ActiveSheet.Name
ActiveWorkbook.Worksheets(original_sheetname).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(original_sheetname).Sort.SortFields.Add Key:=Range("M1:M7"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(original_sheetname).Sort
.SetRange Range("A1:S7")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
For i = 2 To Range("a1").End(xlDown).Row + 1 'm=13 r=18
If Cells(i, 13) <> Cells(i + 1, 13) Then
Range(Rows(i), Rows(i - same)).Copy
Sheets.Add After:=Sheets(Sheets.Count)
Selection.Insert Shift:=xlDown
ActiveSheet.Name = Cells(ActiveCell.Row, 13).Value & "-" & Cells(ActiveCell.Row, 18)
Worksheets(original_sheetname).Select
same = 0
Else
same = same + 1
End If
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
- Excel(エクセル) Excel_マクロ_複数のシートのVLOOKUPで表示された#N/A以外に色付けをしたいです 1 2023/02/16 22:37
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセス 取り込み時に、桁数(...
-
エクセル 1つのシートを日付で...
-
Excel/VBA ステップインと通常...
-
エクセルマクロの組み方
-
エクセルでセル12個間隔で合...
-
【エクセルVBA】任意の画像フォ...
-
エクセルの列をたたむ操作
-
Excelの行数、列数を増やしたい...
-
列方向、行方向の定義
-
VLOOKUPの列番号の最大は?
-
LEFT関数とIF関数の組み合わせ...
-
あああ..ああい..ああう とい...
-
Excelのマクロについて教えてく...
-
エクセル マクロ オートフィ...
-
Excelのマクロについて教えてく...
-
エクセルで複数のシートのクリ...
-
VBAマクロ実行時エラーの修正に...
-
Excelのマクロについて教えてく...
-
DataGridViewでグリッド内に線...
-
Excel UserForm の表示位置
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
CSVファイルの「0落ち」にVBA
-
エクセルで住所を県と市・郡と...
-
Excelの行数、列数を増やしたい...
-
エクセルで複数列の検索をマク...
-
エクセルマクロの組み方
-
Alt+Shift+↑を一括で行うには、...
-
えABのある列って
-
エクセルのソートで、数字より...
-
エクセル マクロ 範囲指定で...
-
VBAで結合セルを転記する法を教...
-
VBAで別ブックの列を検索し、該...
-
エクセルマクロPrivate Subを複...
-
列方向、行方向の定義
-
リストからデータを紐付けしたい
-
Accessのレポートで繰り返し表...
おすすめ情報