|
こんばんは。
>担当者、作成日が入った場合は、どのように対応すればいいでしょうか?
>たまに「空き行」がありますので、その空き行も削除するには、可能でしょうか?
数式に追加すればよいです。
Sub test()
Dim myR As Range
Application.ScreenUpdating = False
With Worksheets("Sheet1")
Set myR = .Range("A2", .Range("A65536").End(xlUp))
With myR.Offset(, 26)
.Value = "=IF(A2=""都道府県"",1,IF(A2="""",1,IF(A2=""担当者"",1,IF(A2=""作成日"",1,""""))))"
On Error Resume Next
.SpecialCells(3, 1).EntireRow.Delete
.ClearContents
On Error GoTo 0
End With
.Columns("A:B").Delete Shift:=xlToLeft
End With
Application.ScreenUpdating = True
End Sub
|
|