[已解决]含有公式的单元格数值，如何复制到指定区域？

wdqinweiyu

请老师帮忙看下，我想将区域sheet1，range（i6：q6）的值赋给sheet3,.range（a2：i2），向下添加，因为range（i6：q6）的值是随着k3的变化而变化，可是我的代码就是不能将变化了的数值赋给指定区域，请老师看看怎么办？
Sub Test1()
Dim i%, j%
With Sheet1
   For i = 1 To 50
     Cells(3, 9) = i
      Sheet3.Cells(i + 1, 1) = Sheet1.Cells(6, 9).Value
      Sheet3.Cells(i + 1, 2) = Sheet1.Cells(6, 10).Value
      Sheet3.Cells(i + 1, 3) = Sheet1.Cells(6, 11).Value
      Sheet3.Cells(i + 1, 4) = Sheet1.Cells(6, 12).Value
      Sheet3.Cells(i + 1, 5) = Sheet1.Cells(6, 13).Value
      Sheet3.Cells(i + 1, 6) = Sheet1.Cells(6, 14).Value
      Sheet3.Cells(i + 1, 7) = Sheet1.Cells(6, 15).Value
      Sheet3.Cells(i + 1, 8) = Sheet1.Cells(6, 16).Value
      Sheet3.Cells(i + 1, 9) = Sheet1.Cells(6, 17).Value
    Next i
End With
End Sub

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-22 18:35

测试一下，和你的代码效果是否一样

1. Sub Macro1()
   
2. arr = Sheet1.[i6:q6]
   
3. Sheet3.[a2].Resize(50, UBound(arr, 2)) = arr
   
4. End Sub
   

复制代码

跳转到最佳答案楼层

冥王

for 里面可以再嵌套一层循环 代码会简短很多

水上漂123

没有附件，不好说，并且你说的和你的代码位置根本不同

蓝粆

看来看去理解不了~~玩玩

1. Sub Test1()
   
2. Dim i%, j%
   
3. With Sheet1
   
4.     For i = 1 To 9
   
5.        Sheet3.Cells(2, i) = .Cells(3, 11).Value
   
6.      Next
   
7. End With
   
8. End Sub

复制代码

dsmch

测试一下，和你的代码效果是否一样

1. Sub Macro1()
   
2. arr = Sheet1.[i6:q6]
   
3. Sheet3.[a2].Resize(50, UBound(arr, 2)) = arr
   
4. End Sub
   

复制代码

qh8600

上传个附件，我来写个

qh8600

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Row = 3 And Target.Column = 11 Then
   
3.         Dim i%, j%
   
4.         For i = 2 To 50
   
5.             For j = 1 To 9
   
6.                 Sheet3.Cells(i, j) = "=Sheet1!R[4]C[8]+i"
   
7.             Next j
   
8.         Next i
   
9.     End If
   
10. End Sub

复制代码

我猜个，应该是工作表事件，只要K3，变化，其他跟着变化，把代码贴在工作表1中

fffox

都在玩猜谜游戏

wdqinweiyu

虽然没有达到我的目的，但是已经很好了。