Boş sütun eklemek hakkında

[antitez21]

Arkadaşlar merhaba

Excel tablomda 100 aden fazla içinde veri olan sütun var ve istediğim şey her dolu sütunun sağına iki boş sütun eklenmesi bunu nasıl yapabiliriz?

 

[muhasebeciyiz]

Sub EkleBoşSütunlar()

Dim i As Long
Dim SonSütun As Long
Dim DoluSütun As Boolean

SonSütun = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column

For i = SonSütun To 2 Step -1
If WorksheetFunction.CountA(Columns(i)) > 0 Then
Columns(i + 1).Resize(, 2).Insert Shift:=xlToRight
End If
Next i

End Sub

Bu kod, her dolu sütunun sağına iki boş sütun ekleyecektir Deneyiniz.

 

[antitez21]

Hocam emeğinize sağlık çok çok teşekkür ederim.