在 Excel VBA 中执行 Split 函数后删除第一行

Question

如何在 Excel VBA 中执行以下 Split 函数后删除第一行：

Dim testtext As String
Dim csv_rows() As String
csv_rows() = Split(testtext, Chr(10))

原因是第一行是我希望删除的 header 列名称。我尝试了 csv_rows() = Split(text, Chr(10)) - 1 但它似乎不起作用。

Answer 1

像这样：

testtext = "Joe" & vbLf & "Jim" & vbLf & "Kim" & vbLf & "Don"
csv_rows = Split(Split(testtext, vbLf, 2)(1), vbLf)

For i = LBound(csv_rows) To UBound(csv_rows) : ? csv_rows(i) : Next

Jim
Kim
Don

Answer 2

请试试这个方法：

csv_rows = Filter(csv_rows, csv_rows(0), False)

如果另一行（数组元素）可能与第一行相同，这种方式将使其工作更安全：

csv_rows(0) = csv_rows(0) & "####" 'this line can be missing if no any risk that a similar line with the first one exists.
csv_rows = Filter(csv_rows, csv_rows(0), False)

在 Excel VBA 中执行 Split 函数后删除第一行

Remove first row after executing Split function in Excel VBA

csv

vba

split

row

delete-row