复制单元格内容,怎么写代码?

wuhuisheng · 发表于 2011-7-10 13:13

sheets(2).range("a1")复制到sheets(1).range("a1") 怎么写代码?谢谢好心人帮助,谢谢!

macky591 · 发表于 2011-7-10 13:17

回复 wuhuisheng 的帖子

录制宏，看一下代码

wuhuisheng · 发表于 2011-7-10 13:28

回复 macky591 的帖子

谢谢!,如果sheets(2).range("a1")>0 时就copyg到sheets(1).range("a1"),否则执行下一行,怎么写代码?帮帮忙.

DD_WJ · 发表于 2011-7-10 13:46

添加一个if....then....endif

wuhuisheng · 发表于 2011-7-10 13:52

回复 DD_WJ 的帖子

帮我看看错在哪?谢谢!
Sub 复制()
  Dim i As Integer
For i = 2 To 13
   If Sheets("报表").Range("c" & i) > 0 And Range("d" & i) > 0 Then

      Sheets("报表").Range ("c" & i) And Range("d" & i).Select
      Selection.Copy
      Sheets("统计表").Range ("c" & i) And Range("d" & i).Select
Else
End If
Next i
End Sub

jkczfpb · 发表于 2011-7-10 13:55

回复 wuhuisheng 的帖子

If Sheets("报表").Range("c" & i) > 0 And Range("d" & i) > 0 Then

      Sheets("报表").Range ("c" & i) And Range("d" & i).Select
      Selection.Copy
      Sheets("统计表").Range ("c" & i) And Range("d" & i).Select
都错了

jkczfpb · 发表于 2011-7-10 13:56

回复 wuhuisheng 的帖子

传个附件。说明要求

wuhuisheng · 发表于 2011-7-10 13:56

回复 macky591 的帖子

录制完,也看不懂,挺羡慕你们有很多金币。

wuhuisheng · 发表于 2011-7-10 13:59

回复 jkczfpb 的帖子

看到"为人民服务"很高兴.以下表是sheets(1)

序号	供应商名称	单价	数量	合计
1	猪肉
2	羊肉
3	白菜
4	冬瓜
5	萝卜
6	鸡肉
7	木耳
8	土豆
9	丝瓜
10	芹菜
11	黄瓜
12	汉堡
累计				0

wayy · 发表于 2011-7-10 21:43

Sub 复制()
  Dim i As Integer
For i = 2 To 13
   If Sheets("报表").Range("c" & i) > 0 And Range("d" & i) > 0 Then

      Sheets("报表").Range("c" & i, "d" & i).Select
      Selection.Copy
      Sheets("统计表").Select
      Range("c" & i, "d" & i).Select
Else
End If
Next i
End Sub

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