こんにちは。エクセルのマクロに関する質問です。
添付写真のシートのデータをD列の保管場所ごとにそれぞれ別のシートに分割するマクロを作成しようとしています。
ポイントは、
1.保管場所の数だけ新しくシートを追加。
(分割すべきシートは、左から2番目。新たに追加されるシートは3番目にくるようにしたい。)
2.D列の保管場所名を新しいシートのタイトルにする。
3.9行までのデータは、すべてのシートにおいて同様。(デフォルト)
4.10行以降のデータは、各保管場所のデータが入るようにしたい。
データは、縦約1300行、横AE列まであります。 AE列の9行にはデータが入力されていますが、
AE列の10行以降のデータは空白です。保管場所の数は、処理するデータの中身によって変わるため、変数にしたいです。どうぞ宜しくお願いします。
※ちなみにネットで見つけた以下のマクロで実行した時は、上記1〜3までの問題なかったのですが、上記4のところが失敗しました。(各シートの内容が分割されず、元シートのデータがそのままコピーされていました。)
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
vcol = 4
Set ws = Sheets("照合表")
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = "A1:AE1"
titlerow = ws.Range(title).Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
For i = 2 To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
ws.Range("A" & titlerow & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A1")
Sheets(myarr(i) & "").Columns.AutoFit
Next
ws.AutoFilterMode = False
ws.Activate
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
ニーズを把握しているわけではないのですが、自分なら、エクセルのフィルタ機能で済ませます。
おそらく、これで目的を達成できると思います。
(マクロを使うのは手段の一つであり、他の手段であってもよいはずです)
◆やり方
1. 黄色になっている行全体を選択
2. データ → フィルタ
3. 保管場所のところの▼マークをクリック → 表示したい項目にチェックをつける → OK
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 抽出結果を別シートに貼り付ける 2 2022/07/09 22:59
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Visual Basic(VBA) VBAで、シート間の転記するコードをFOR~NEXTで教えてください。 9 2023/04/30 20:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでシートの違うデータでグ...
-
複数シートからデータを拾って...
-
エクセルファイルのシート毎の容量
-
トランジスタの選び方
-
ファンモータが作動しない。
-
EXCELで2つのファイルから重複...
-
エクセルで一覧表から担当別シ...
-
電子部品のデータシートの探し方
-
エクセル2010 別シートへのデー...
-
EXCEL 複数行のデータを1行にま...
-
excel vlookup 新担当者への実...
-
エクセルで名簿を50音で切り分ける
-
エクセル マクロ "特定の日付...
-
(VBAにて)日付でデータを抽出す...
-
エクセルで複数の条件を抽出し...
-
Googleスプレッドシートフィル...
-
エクセルで抽出分だけを別シー...
-
エクセルで1つのシートを拠点...
-
【エクセルマクロ】複数シート...
-
エクセルで行の自動非表示の方法は
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
Excelでシートの違うデータでグ...
-
シート削除して同名シート追加...
-
excelの不要な行の削除ができな...
-
Excelで日付変更ごとに、自動的...
-
VBAで CTRL+HOMEの位置へ移動...
-
トランジスタの選び方
-
EXCELで2つのファイルから重複...
-
EXCEL 複数行のデータを1行にま...
-
他のシートの一番下の行データ...
-
オートフィルタで抽出したデー...
-
エクセルのカメラ機能について
-
(VBAにて)日付でデータを抽出す...
-
エクセルで名簿を50音で切り分ける
-
別々のシートの表をピボットテ...
-
Excel 売上管理シートに入力し...
-
Excelマクロ 差分抽出の方法が...
-
EXCEL の表を一行ずつシートに...
-
エクセルVBAで、特定文字から始...
おすすめ情報