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

seesun

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

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

lu_zhao_long

原帖由 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