Betrachten Sie reichlich LBound und Ubound :
%Vor% Btw , Split a> gibt immer nullbasiertes Array zurück (beginnt mit 0
, aber nicht mit 1
). Deshalb empfehle ich Ihnen, sowohl Ubound als auch Lbound zu verwenden.
Noch eine Sache , ich habe Dim last_cell As Integer
in Dim last_cell As Long
geändert, da der maximale Wert von Integer
only 32767
ist und wenn die letzte Zeile größer als 32767
wäre, Sie würden einen Fehler mit Integer
bekommen.
Und vermeiden Sie die Verwendung von Select / Active-Anweisungen (es geht um Worksheets(3).Activate
)