VBA学习阶段：无法将单元格/Range值存入变量，报1004错误

看来你在VBA学习路上碰到了经典的1004错误，我帮你分析下可能的问题点，以及对应的解决办法：

一、最可能的原因：未明确指定工作表对象 #

你的代码里已经定义了ws1和ws2，但在获取LastRow的时候直接用了Cells(Rows.Count, 1).End(xlUp).Row，这里的Cells和Rows默认指向当前活动工作表，如果此时活动表不是Sheet1，就会导致引用范围出错，抛出1004。

修复方法： #

所有涉及单元格/行/列的操作，都要明确绑定到你定义的工作表对象：

LastRow = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
LastCol = ws1.Cells(1, ws1.Columns.Count).End(xlToLeft).Column

同理，当你要把单元格值存入变量时，也要指定工作表：

' 比如读取ws1第i行第j列的值到str变量
str = ws1.Cells(i, j).Value
' 或者用Range写法
str = ws1.Range("A" & i).Value

二、变量类型不匹配的潜在问题 #

看你的变量定义：

• StrLen As String：StrLen是用来存储字符串长度的，应该定义为Long（Integer最大只能到32767，长字符串会溢出）
• MaxStrLen As Integer：同样建议改成Long避免溢出

修正后的变量定义：

Dim str As String
Dim rock As String
Dim MaxStrLen As Long
Dim StrLen As Long
Dim LastRow As Long
Dim LastCol As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim i As Integer
Dim j As Integer
Dim FilePath As String

三、其他可能导致1004的场景 #

• 单元格包含错误值：如果目标单元格是#N/A、#VALUE!这类错误值，直接赋值给字符串变量会报错。可以先判断：

If Not IsError(ws1.Cells(i, j).Value) Then
    str = ws1.Cells(i, j).Value
Else
    str = "单元格存在错误值" ' 或者做其他处理
End If

• 工作表被保护：如果Sheet1或Sheet2被保护且未允许编辑单元格，也会抛出1004。可以先取消保护（如果需要）：

ws1.Unprotect Password:="你的密码" ' 如果有密码的话
' 执行操作后再保护
ws1.Protect Password:="你的密码"

你可以先检查上述几点，尤其是指定工作表对象这一项，这是新手最容易踩的坑～

内容的提问来源于stack exchange，提问作者user6314105