VBA中Cells.Text赋值结果不一致咨询：为何一处取值正常一处返回空格？

咱们来拆解你遇到的核心问题：两个看似类似的单元格引用，结果却截然不同，大概率是工作表上下文不一致导致的，下面具体梳理：

1. 隐式 vs 显式工作表引用的核心差异 #

你第一条语句里的Cells(iRijnummer, iKolomnrNaam)没有指定所属工作表，它默认指向当前活动工作表（也就是你操作时选中的那个工作表）；而第二条语句明确指定了ThisWorkbook.Worksheets(1)，也就是工作簿里的第一个工作表。

如果这两个不是同一个工作表，那自然会拿到错误内容——比如Worksheets(1)的对应单元格本来就是空的/显示空格，而活动工作表的对应单元格有正确的名称字符串。

2. 验证与修复步骤 #

第一步：确认工作表是否一致 #

先在代码里加个调试语句，快速排查工作表是否匹配：

Debug.Print "活动工作表名称：" & ActiveSheet.Name
Debug.Print "Worksheets(1)名称：" & ThisWorkbook.Worksheets(1).Name

运行代码后打开【立即窗口】（按Ctrl+G），如果两个名称不一样，那就是问题根源了。

第二步：统一工作表引用 #

把第二条语句的工作表改成和第一条一致的，要么复用wsMotiv（这应该是你需要的目标工作表），要么明确指向正确的表：

' 方案1：复用已定义的wsMotiv，和第一条语句逻辑统一
s = wsMotiv.Cells(iRijnummer, iKolomnrNaam).Text

' 方案2：如果确实要使用Worksheets(1)，先确认它是你需要的表
s = ThisWorkbook.Worksheets(wsMotiv.Name).Cells(iRijnummer, iKolomnrNaam).Text

3. 额外可能性排查 #

如果工作表确实是同一个，但还是返回空格，可以检查这几点：

• Text属性返回的是单元格显示文本：如果列宽不够导致内容被截断成####，或者单元格有隐藏空格字符，Text会返回这些显示内容；可以改用Value属性试试，它返回单元格的实际值：

  s = ThisWorkbook.Worksheets(1).Cells(iRijnummer, iKolomnrNaam).Value
  

• 确认iRijnummer和iKolomnrNaam的取值是否正确：比如循环里的行号是否对应到了目标数据行，列号是否指向了名称所在的列。

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