初始化变量时Excel Visual Basic运行时错误'1004'

问题描述：

我正在学习visual basic，并且我正在使用的这个脚本在初始化变量i时出现错误。初始化变量时Excel Visual Basic运行时错误'1004'

我不知道是什么问题，但我收到错误消息：

Run-time error '1004': Application-defined or object-defined error

这里是我的代码：

Sub excelmacro() 

Sheets("Sheet1").Select 
Range("A1").Select 

Sheets("Sheet2").Select 
Range("B1").Select 

i = 1 

While i <> 10 
    If Len(ActiveCell.Value) > 1 Then 
     Sheets("Sheet1").Select 
     xname = Right(ActiveCell.Value, Len(ActiveCell.Value) - 6) 
     xsalary = Right(ActiveCell.Value, Len(ActiveCell.Offset(2, 0).Value) - 8) 
     xdesignation = Right(ActiveCell.Value, Len(ActiveCell.Offset(1, 0).Value) - 13) 

     Sheets("Sheet2").Select 
     ActiveCell.Value = xname 
     ActiveCell.Offset(0, 1).Value = xdesig 
     ActiveCell.Offset(0, 3).Value = xsalary 

     ActiveCell.Offset(1, 0).Select 
     Sheets("Sheet1").Select 
     ActiveCell.Offset(3, 0).Select 
    Else 
     i = 10 
    End If 
Wend 

End Sub

如果你的调试指向'i = 1'那么错误应该是**编译错误：变量未定义**。当你在模块表顶部指定'Option Explicit'时，会发生这种情况，但是在使用它们之前不要声明你的变量（例如** Dim i long **）。 – Jeeped

我没有指定Option Explicit，虽然 –

另外，当我把Dim i As Long设置为1之前，我得到相同的错误，该行 –

答

你不需要变量i在你的代码无论如何！只是踢线初始化我出。

的，如果在你的循环语句中使用我基本上是为了躲避循环，可缩短至：

While Len(ActiveCell.Value) > 1 
    Sheets("Sheet1").Select 
    xname = Right(ActiveCell.Value, Len(ActiveCell.Value) - 6) 
    xsalary = Right(ActiveCell.Value, Len(ActiveCell.Offset(2, 0).Value) - 8) 
    xdesignation = Right(ActiveCell.Value, Len(ActiveCell.Offset(1, 0).Value) - 13) 

    Sheets("Sheet2").Select 
    ActiveCell.Value = xname 
    ActiveCell.Offset(0, 1).Value = xdesig 
    ActiveCell.Offset(0, 3).Value = xsalary 

    ActiveCell.Offset(1, 0).Select 
    Sheets("Sheet1").Select 
    ActiveCell.Offset(3, 0).Select 

Wend

答

这可能是开始练习在How to avoid using Select in Excel VBA macros详细方法的好时机。

您的代码重复检索ActiveCell中最右侧字符的不同长度，但使用活动单元格下方行中的值的长度来确定要检索的字符数。似乎你应该从你用来确定长度的同一个单元中检索字符。

Sub excelmacro() 
    Dim i As Long, xname As String, xsalary As String, xdesignation As String 

    With Sheets("Sheet1") 
     For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row Step 3 
      If CBool(Len(.Cells(i, "A").Value)) Then 
       xname = Right(.Cells(i, "A").Value, Len(.Cells(i, "A").Value) - 6) 
       xdesignation = Right(.Cells(i + 1, "A").Value, Len(.Cells(i + 1, "A").Value) - 13) 
       xsalary = Right(.Cells(i + 2, "A").Value, Len(.Cells(i + 2, "A").Value) - 8) 

       With Sheets("Sheet2") 
        .Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = xname 
        .Cells(Rows.Count, "B").End(xlUp).Offset(0, 1) = xdesignation 
        .Cells(Rows.Count, "B").End(xlUp).Offset(0, 3) = xsalary 
       End With 

      End If 
     Next i 
    End With 
End Sub

我保留你的一个字符串变量的使用对工资虽然你可以通过使用类型双的变量，将伴随CDbl()包装文本得到更好的服务。第二次使用xdesig而不是xdesignation被修正。

初始化变量时Excel Visual Basic运行时错误'1004'

相关推荐