Chciałbym wstawić kolumny podziału do raportu programu Excel, aby istniejące kolumny były łatwiejsze do wyświetlenia.Jak dynamicznie wstawiać kolumny w programie Excel?
Raport jest tworzony dynamicznie i nigdy nie wiadomo, ile kolumn będzie; nie może być 5, 10, 17, itd.
Odcinek rozpoczyna się F i idzie do ival=Application.WorksheetFunction.CountIf(range("D2:D" & LastRow), "Other")
Więc jeśli ival=10
następnie kolumny są FGHIJKLMNO i muszę wstawić kolumny pomiędzy F & G, G & H, H & ja, ja & J ... i N & O.
To może być możliwość wstawiania kolumn: Workbooks("yourworkbook").Worksheets("theworksheet").Columns(i).Insert
Ale nie jestem pewien, jak przechodzić przez ival
.
Sub InsertColumns()
Dim iVal As Integer
Dim Rng As range
Dim LastRow As Long
Dim i As Integer
With Sheets("sheet1")
LastRow = .range("D" & .Rows.Count).End(xlUp).Row
End With
iVal = Application.WorksheetFunction.CountIf(range("D2:D" & LastRow), "Other")
For i = 7 To iVal - 1
Workbooks("yourworkbook").Worksheets("theworksheet").Columns(i+1).Insert
Next i
End Sub