关于用range复制数据

xinkaicca

我有两个表格，需要将表格1中点选的行，依次填入表格2中的行，但是总有错误，range不能等于range么？
具体程序如下，谢谢
Dim i As Single
Dim j As Single
Dim cd
For i = 1 To 15
If Worksheets("data").Cells(4 + i, 11).Value = 1 Then
cd = Worksheets("data").Range(Cells(4 + i, 3), Cells(4 + i, 10)).Value
Worksheets("report").Range(Cells(14 + j, 3), Cells(14 + j, 10)).Value = a
j = j + 1
Else
End If
Next

end sub
本来写的是Worksheets("report").Range(Cells(14 + j, 3), Cells(14 + j, 10)).Value=Worksheets("data").Range(Cells(4 + i, 3), Cells(4 + i, 10)).Value
也是总报错，才加了个cd的数组，用msgbox看到，到cd这一步数据是分别存进去了，但是最后一步又错了

求高手指点下

microyip

这些地方前面要加上表名

xinkaicca

microyip 发表于 2019-11-29 14:18
这些地方前面要加上表名

能麻烦您写个样子么？怎么加呢？表名不是在最前面写的worksheets？
谢谢

microyip

1. cd = Worksheets("data").Range(Worksheets("data").Cells(4 + i, 3), Worksheets("data").Cells(4 + i, 10)).Value

复制代码

或者

1. With Worksheets("data")
   
2. cd = .Range(.Cells(4 + i, 3), .Cells(4 + i, 10)).Value
   
3. End With

复制代码

liangmutou01

给出附件，提出要求。

xinkaicca

liangmutou01 发表于 2019-11-29 15:10
给出附件，提出要求。

将sheet DATA中打印栏写着1的一行数据，分别填入sheet report中空白部分

谢谢

liangmutou01

Sub zy()
  Application.ScreenUpdating = False
  Sheets("data").Select
  ar = Range("c5:k" & [b65536].End(3).Row).Value
  With Sheets("report")
  .Range("b14:k35").ClearContents
  For h = 1 To UBound(ar)
    rh = .[e36].End(3).Row + 1
    If ar(h, 9) = 1 Then _
     .Range(.Cells(rh, "b"), .Cells(rh, "i")) = Array(ar(h, 1), "", "", ar(h, 4), ar(h, 5), ar(h, 6), ar(h, 7), ar(h, 8))
  Next h
  Application.ScreenUpdating = True
  End With
End Sub

liangmutou01

将程序文件一并发给你，希望能帮到你。

xinkaicca

liangmutou01 发表于 2019-11-29 20:34
将程序文件一并发给你，希望能帮到你。

谢谢大神！！！很好用，我也学习学习这个程序