前回下記の質問をした者です。
https://oshiete.goo.ne.jp/qa/9235960.html
快適に使わせていただいておりますが、ひとつ機能を追加したく、相談に乗って頂ければと思っております。
現在製品名毎にデータをソートして表を作って頂いておりますが、これを更に
「製品名」ごとの「納期」を「昇順」でソートをしたい場合、何をどう追加したら良いでしょうか。
また、表ごとの行間を1行から3行に変更したいのですが、そのやり方も教えていただけると助かります。
Sub Sample1() 'この行から//
Dim i As Long, wS As Worksheet
Set wS = Worksheets("Bデータ")
wS.Cells.Clear
With Worksheets("B")
.Range("A:A").AdvancedFilter Action:=xlFilterCopy, copytorange:=wS.Range("A1"), unique:=True
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
.Range("A1").AutoFilter field:=1, Criteria1:=wS.Cells(i, "A")
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy wS.Cells(Rows.Count, "B").End(xlUp).Offset(2)
Next i
wS.Range("A:A").Delete
wS.Rows(1 & ":" & 2).Delete
wS.Columns.AutoFit
.AutoFilterMode = False
End With
End Sub 'この行まで//
表の並びとしては
製品名 納期 発注 注文 数量 メモ 在庫
こんな感じになってます。
自分なりに色々調べてみたのですが、どうしていいのか分からずお手上げです。
ぜひお知恵をお借りしたく…どうぞ、よろしくお願いします。
何か不足がありましたら補足致しますので、回答の程、宜しくお願い致します。
No.1
- 回答日時:
こんにちは!
前回回答したものです。
元のコードはそのままで最後に並び替えをしてみてはどうでしょうか?
B列の昇順で並び替えをしています。
Sub Sample2() 'この行から//
Dim i As Long, wS As Worksheet
Set wS = Worksheets("Bデータ")
wS.Cells.Clear
With Worksheets("B")
.Range("A:A").AdvancedFilter Action:=xlFilterCopy, copytorange:=wS.Range("A1"), unique:=True
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
.Range("A1").AutoFilter field:=1, Criteria1:=wS.Cells(i, "A")
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy wS.Cells(Rows.Count, "B").End(xlUp).Offset(2)
Next i
wS.Range("A:A").Delete
wS.Rows(1 & ":" & 2).Delete
wS.Columns.AutoFit
.AutoFilterMode = False
'▼追加//
For i = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
If wS.Cells(i, "A") = "製品名" Then
'B列をキーに昇順に並び替え//
wS.Cells(i, "A").CurrentRegion.Sort key1:=wS.Cells(i, "B"), order1:=xlAscending, Header:=xlYes
End If
Next i
'▲ここまで//
End With
End Sub 'この行まで//
こんな感じではどうでしょう?m(_ _)m
No.2ベストアンサー
- 回答日時:
つづけてお邪魔します。
>行間を1行ではなく2行とか3行とかに増やしたい場合は・・・
とりあえず2行あける場合のコードを記載しておきます。
Sub Sample3() 'この行から//
Dim i As Long, wS As Worksheet
Set wS = Worksheets("Bデータ")
wS.Cells.Clear
With Worksheets("B")
.Range("A:A").AdvancedFilter Action:=xlFilterCopy, copytorange:=wS.Range("A1"), unique:=True
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
.Range("A1").AutoFilter field:=1, Criteria1:=wS.Cells(i, "A")
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy wS.Cells(Rows.Count, "B").End(xlUp).Offset(3) '①
Next i
wS.Range("A:A").Delete
wS.Rows(1 & ":" & 3).Delete '②
wS.Columns.AutoFit
.AutoFilterMode = False
For i = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
If wS.Cells(i, "A") = "製品名" Then
wS.Cells(i, "A").CurrentRegion.Sort key1:=wS.Cells(i, "B"), order1:=xlAscending, Header:=xlYes
End If
Next i
End With
End Sub 'この行まで//
※ 3行あけたい場合は
①の行を
>.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy wS.Cells(Rows.Count, "B").End(xlUp).Offset(4)
に
②の行を
>wS.Rows(1 & ":" & 4).Delete
と変更してみてください。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【至急】Excel 同一人物の情報を一行にまとめる(複数行) 6 2022/05/24 17:58
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) 抽出結果を別シートに貼り付ける 2 2022/07/09 22:59
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1の行を固定した上でVBAを用い...
-
コンボボックスのソートについて
-
文字型の順番がうまく並ばない。
-
MySQLで都道府県順にソート
-
数字と漢字が混じった日付デー...
-
レコードの登録順がおかしい
-
ファイルの漢数字の順番につい...
-
エクセルであいうえお順に並べ替え
-
ファイルメーカーでソート後の...
-
count関数の値をwhere句で使用...
-
単一グループのグループ関数で...
-
select文の実行結果に空白行を...
-
最新の日付と2番目の日付のデー...
-
2つの列が同じ値の行を取得するSQL
-
SQLローダーCSV取込で、囲み文...
-
int型フィールドにnullを登録で...
-
ORMについて
-
AccessのSQL文で1件のみヒット...
-
where句中のtrim関数について
-
割合(パーセント)を求めるには?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードの登録順がおかしい
-
エクセル、並び替え正しくソー...
-
並べ替えについて
-
1の行を固定した上でVBAを用い...
-
ファイルの漢数字の順番につい...
-
エクセルのソートについて
-
テーブルレーコードをソートし...
-
上から何番目か。
-
SQLで曜日のソートを月火水木金...
-
リストボックス内を昇順並べる方法
-
Selectした時のレコードの取得順
-
コンボボックスのソートについて
-
アクセスに関して。クエリの並...
-
accessでDISTINCT 句と矛盾
-
エクセルでダブルクリックして...
-
Excelの並び替え(文字数と画数...
-
都道府県順、北からソートした...
-
数字と漢字が混じった日付デー...
-
月末日のみソートしたい
-
エクセルの縦列のソートできま...
おすすめ情報
tom04様、回答をありがとうございました。
希望通りの結果になりました!
最後に一点お伺いしたい事が…
表同士の行間を1行ではなく2行とか3行とかに増やしたい場合はどこをいじったら宜しいでしょうか?
差支え無ければ回答をお願い致します!