2018-11-13から1日間の記事一覧

VBA 特定の文字列の下に空白行を入れる

VBA VBA ECサイト　など

Sub add() Dim rNum As Long For rNum = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1If Cells(rNum, 5).Value = "挨拶状希望" Then Rows(rNum + 1).InsertNext rNum End Sub