arrays - 如果数组为空，VBA 继续

Question

我只是想知道如果数组未满，如何跳过错误？例如，1 个循环检查数组是否有名字和姓氏，如果没有姓氏，我希望脚本继续。

FullName = ActiveSheet.Cells(37, ii).Value
Name = Split(FullName, " ")

For intCount = LBound(Name) To UBound(Name)
  sData.Range("C" & iii).Value = Name(0)
  sData.Range("D" & iii).Value = Name(1)
Next

如果Name(1)为空，那么代码如何继续？

Answer 1

由于两列是连续的，因此您可以将数组粘贴到位，使用 Range.Resize 根据需要将数组转储到尽可能多的列中 - 唯一需要注意的是如果Name 可以包含多个空格:

FullName = ActiveSheet.Cells(37, ii).Value
Name = Split(FullName, " ")
If UBound(Name) <= 1 Then
    sData.Range("C" & iii).Resize(, UBound(Name) + 1).Value = Name
Else
    'there was more than one space...
End If