: Exit SubSet d1 = CreateObject("Scripting.Dictionary"): d1.CompareMode = vbTextCompareReDim BR1(1 To Rows, 1 To 20)For i = 1 To UBound(ar1)kw = Trim(ar1(i, 1))If Not d1.Exists(kw) Thenm1 = m1 + 1d1(kw) = m1x1 = Split(kw, "-")BR1(m1, 1) = Split(Split(kw,...
Private Sub Worksheet_Change(ByVal Target As Range)Dim s() As StringIf InStr(s, ".") <> 0 Thens = Split(Cells(Target.Row, Target.Column), ".")Cells(Target.Row, Target.Column) = s(1)End IfEnd Sub
url = Trim(Replace(Split(Split(arr(j), "title=")(0), "<a href=")(1), """, ""))请用下面方法调试上面一句 a = Split(arr(j), "title=")(0)MsgBox a 这显然是错误的，没有<a href <a href=去掉前面的和后面的 href=只要...
没问题，应该是读取到空的单元格所致吧，空单元split后只返回一个单元数组，你要确保这列数据在第十列（即J列），同是起始行必须小于等于3，而这列数据最大行不能少于其它数据列（如还其它数据列的话）
Microsoft VBScript 运行时错误 800a0009 下标越界: 的解决方法 d_time_arr = Split(d_time_text,"-") d_year = d_time_arr(0) if d_time_arr(1) 9...else d_month = d_time_arr(1) end if if d_time_arr(2) 9...寻找原因根据提示,发现是数组下标越界了,尝试将d_time_arr(1) 9 改成...
读取其它工作簿表格中的数据时,提示下标越界,程序如下: Private Sub CommandButton1_Click() Dim File As String Dim FiltIndex As Integer Dim Title As String Dim FileName As Variant Dim rgA1 As String Dim Wrbk As Workbook Filt = "Exce... 展开 famous...
越界的时候选择调试，看看越界的语句，如果没有调试选择，可以F8单步执行。可能是下面的语句越界：For j = 1 To UBound(arr)如果这个arr只有一个元素0，那么j=1就越界的，可以这样写：For j = LBound(arr) To UBound(arr)
d(aa) = "" Next End If Next ar = d.keys For j = 0 To UBound(ar) ss = Split(ar(j), "|") For n = 0 To UBound(ss) sk.Cells(j + 2, n + 1) = ss(n) Next Next End Sub
方法二:使用Split函数创建数组 方法一和二创建数组,详见《别怕,Excel VBA 其实很简单》62-63页。 方法三:通过Range对象直接创建数组 如果想把一个单元格区域的值直接存储到数组里,可以直接把单元格区域的值赋给变量名。使用Range创建的数组,即使表中只有一行,它也是二维数组。
(1)line2,容错语句,如果一个字段包含“月”但不包含“.”,那么在下面Split的时候,arrStr就只有一个元素,arrStr(1)则不存在,会报错“下标越界”。 (2)line3~4,定义变量,这里arrStr()定义为String类型。 (3)line5,把工作表对象ws赋值为工作表“签证单格式化”。