动态循环赋值问题，已经完成字符串的赋值，但是数值不能赋值过来，请高人指点，谢谢！

seesun · 发表于 2009-1-24 12:30

Sub 全国拆分汇总()

Dim i, x As Integer
Dim fileName As String

On Error Resume Next

For i = 1 To 32
Sheets(2).Cells(26, 15) = Sheets(2).Cells(1, i)
Sheets(2).Cells(9, 15) = Sheets(1).Cells(3, 8 + i)
fileName = Sheets(1).Cells(3, 8 + i)
Sheets(4).Cells(2, i) = fileName
'以上部分都能顺利执行，但是下面的赋值两句，始终在表格中不能体现出来，执行封面的拆分按钮，不能把表3的（75，6）的值变化的赋值到表4中，不知道什么原因？请高人指点，谢谢！

x = Sheets(3).Cells(75, 6).Value
Sheets(4).Cells(3, i).Value = x

Next

End Sub

seesun · 发表于 2009-1-24 12:31

补充一下，表三的（75，6），在表格里面有一个SUM语句

lu_zhao_long · 发表于 2009-1-25 00:12

原帖由 seesun 于 2009-1-24 12:30 发表
Sub 全国拆分汇总()

Dim i, x As Integer
Dim fileName As String

On Error Resume Next

For i = 1 To 32
Sheets(2).Cells(26, 15) = Sheets(2).Cells(1, i)
Sheets(2).Cells(9, 15) = Sheets(1).Ce ...

你的代码错误！因为金额为浮点数，而你把 x 定义为整型数，所为会出错！即类型不匹配。为什么不显示错误呢？因为你使用了 “On Error Resume Next”指令禁止显示错误报警！
解决办法：
Dim i As Integer, x As Single

		自动登录	找回密码
密码			免费注册

[书籍光盘资料] 动态循环赋值问题，已经完成字符串的赋值，但是数值不能赋值过来，请高人指点，谢谢！