Wie füge ich dynamisch Spalten in Excel ein?

8

Ich möchte Trennspalten in einen Excel-Bericht einfügen, um die Anzeige der vorhandenen Spalten zu vereinfachen.

Der Bericht wird dynamisch erstellt und ich weiß nie, wie viele Spalten es geben wird. Es könnte 5, 10, 17 usw. sein.

Der Abschnitt beginnt bei F und geht zu ival=Application.WorksheetFunction.CountIf(range("D2:D" & LastRow), "Other")

Wenn also ival=10 sind, dann sind die Spalten F G H I J K L M N O und ich muss Spalten zwischen F & amp; G, G & amp; H, H & amp; I, ​​I & amp; J, ... und N & amp; O einfügen.

Dies kann eine Möglichkeit zum Einfügen von Spalten sein: Workbooks("yourworkbook").Worksheets("theworksheet").Columns(i).Insert

Aber ich bin nicht sicher, wie man ival durchläuft.

%Vor%     
xyz 05.06.2013, 01:11
quelle

2 Antworten

9

Der folgende Code sollte funktionieren, ohne sich um ival kümmern zu müssen:

%Vor%     
Santosh 05.06.2013, 03:58
quelle
3

Versuchen Sie Folgendes:

%Vor%     
Jon Crowell 05.06.2013 01:29
quelle

Tags und Links