excelvba下标越界_vba 下标越界 --9--

excelvba下标越界_vba 下标越界 \"9\"

       大家好，今天我想和大家讲解一下“excelvba下标越界”的工作原理。为了让大家更好地理解这个问题，我将相关资料进行了分类，现在就让我们一起来学习吧。

1.excelvba?±????

2.excel中vba用for语句对多个单元格赋值的问题

3.Excel vba 两段相同的代码 结果出来一个下标越界一个正常为什么

excelvba?±????

       代码本身没有语法错误

       在微软的EXCEL下正常运行

       不知道这个出错是否与WPS有关。。。。

       代码有点小错误

       以下按“记账”的表格结构改了一下

       改过的地方都注释了

Sub?jizhang()

       Dim?WS1?As?Worksheet,?WS2?As?Worksheet

       Dim?Rnum1,?Rnum2

       Set?WS1?=?Worksheets("尚品美居销售单")

       Set?WS2?=?Worksheets("记账")

       Rnum2?=?WS2.Range("b65536").End(xlUp).Row?+?1

       Rnum1?=?5?'起始行

       Do?Until?WS1.Cells(Rnum1,?1)?=?""?Or?WS1.Cells(Rnum1,?1)?=?"本单小计"

       WS2.Cells(Rnum2,?1)?=?WS1.[b2]?'A列

       WS2.Cells(Rnum2,?2)?=?WS1.[b3]?'B列

       WS1.Cells(Rnum1,?1).Resize(1,?6).Copy?WS2.Cells(Rnum2,?3)'扩展6列'复制到C列

       Rnum1?=?Rnum1?+?1

       Rnum2?=?Rnum2?+?1

       Loop

       End?Sub

excel中vba用for语句对多个单元格赋值的问题

       Workbooks(ThisWorkbook.Path & "\" & sm).Sheets(1).Copy after:=ThisWorkbook.Sheets(3)

       改为

       Workbooks(sm).Sheets(1).Copy after:=ThisWorkbook.Sheets(3)

       试试吧，原来的路径指定好像有问题的啊

Excel vba 两段相同的代码 结果出来一个下标越界一个正常为什么

       Sheet1.Range("c"?&?z)?=?Application.WorksheetFunction.Sum(Sheets(z).Range("i4:i35"))

       改成上面这样即可。多练习。照抄别人代码再修改也是很好学习，多看excelhome论坛。

       ‘自己敲的：

        a = Sheets("Datebase").UsedRange.Rows.Count

       ’网上复制下来的：

       'a = Sheets("Database").UsedRange.Rows.Count

       ******************************************************************

       你自己敲的Sheets("Datebase")打字错误，对照图，是Database。

       今天关于“excelvba下标越界”的讲解就到这里了。希望大家能够更深入地了解这个主题，并从我的回答中找到需要的信息。如果您有任何问题或需要进一步的信息，请随时告诉我。