[[20230708205536]]　『VBAの並べ替え→罫線引き』（SASIO）　ページの最後に飛ぶ

『VBAの並べ替え→罫線引き』（SASIO）

A～D列　行数は100行ある表で、
以下の工程でVBAを組み込みたいのですが、

最優先　　　A列を昇順
↓
次の優先　　B列を昇順
↓
最後の優先　C列を昇順
↓
D列が空欄でないときは、その行に罫線を引く

＜使用 Excel：Excel2013、使用 OS：unknown ＞

 ソートの事例は過去ログにもたくさんありますし、
 マクロの自動記録でもコードが得られます。

 D列が～の部分はIf分で条件分岐すれば
 いいと思います。
（MK） 2023/07/08(土) 21:27:22

 Sub test()
     Dim i As Long
     With ActiveSheet.Sort
         .SortFields.Clear
         .SortFields.Add2 Key:=Range("A2")
         .SortFields.Add2 Key:=Range("B2")
         .SortFields.Add2 Key:=Range("C2")
         .SetRange Range("A1").CurrentRegion
         .Header = xlYes
         .Apply
     End With
     For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
         If Cells(i, "D") <> "" Then
             Cells(i, "A").Resize(, 4).Borders(xlEdgeBottom).LineStyle = True
         End If
     Next
 End Sub
（フォーキー） 2023/07/09(日) 08:59:38

コメント返信：

[ 一覧(最新更新順) ]

[[20230708205536]] 『VBAの並べ替え→罫線引き』（SASIO） ページの最後に飛ぶ

[[20230708205536]]　『VBAの並べ替え→罫線引き』（SASIO）　ページの最後に飛ぶ