[已解决]错哪，谢谢！！！

fangniuji

Sub Macro1()
Dim X As Long
Sheets(1).Select
If Range("c1") = 14 Then
  Sheets(2).Select
  X = Range("A65536").End(xlUp).Row + 1
  Sheets(1).Range("b2").Copy
  Sheets(2).Cells(X, 1).Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  Sheets(1).Select
  Range("B3:B15").Select
    Selection.Copy
    Sheets(2).Select
   Cells(X, 2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
  Sheets(1).Select
  Range("B3:B8").ClearContents
  Range("B9:B15").ClearContents
  Range("B3").Select
  Else
  MsgBox ("数据未填写完整,请确认！")
  End If
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-9 16:23

1. Sub Macro1()
   
2. Dim X As Long
   
3. Sheets(1).Select
   
4. If Range("c1") = 14 Then
   
5.         Sheets(2).Select
   
6.         X = Range("A65536").End(xlUp).Row + 1
   
7.         Sheets(1).Range("b2").Copy
   
8.         Sheets(2).Cells(X, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
9.               :=False, Transpose:=False
   
10.         Sheets(1).Select
    
11.         Range("B3:B15").Copy
    
12.           Sheets(2).Select
    
13.          Cells(X, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
14.               :=False, Transpose:=True
    
15.         Sheets(1).Select
    
16.         Range("B3:B8").ClearContents
    
17.         Range("B9:B15").ClearContents
    
18.         Range("B3").Select
    
19.    Else
    
20.         MsgBox ("数据未填写完整,请确认！")
    
21.    End If
    
22. End Sub
    
23. 
    

复制代码

你先得在C1单元格填上14，才会复制数据。

跳转到最佳答案楼层

hwc2ycy

你贴的运行正常。

jlf2003

测试可以呀!
你是要自动增加数值,还是想有其它功能?

fangniuji

hwc2ycy 发表于 2012-10-9 15:33
你贴的运行正常。

一直出现"数据未填写完整,请确认”

fangniuji

jlf2003 发表于 2012-10-9 15:39
测试可以呀!
你是要自动增加数值,还是想有其它功能?

一直出现"数据未填写完整,请确认

hwc2ycy

fangniuji 发表于 2012-10-9 15:55
一直出现"数据未填写完整,请确认

你的空表，人家反馈没有输入数据是正常的呀。

fangniuji

hwc2ycy 发表于 2012-10-9 16:02
你的空表，人家反馈没有输入数据是正常的呀。

我资料都填了，还是出现！！不复制。谢谢帮忙！！！

fangniuji

hwc2ycy 发表于 2012-10-9 16:02
你的空表，人家反馈没有输入数据是正常的呀。

可能数据定义有问题，数据定义无要求。

hwc2ycy

1. Sub Macro1()
   
2. Dim X As Long
   
3. Sheets(1).Select
   
4. If Range("c1") = 14 Then
   
5.         Sheets(2).Select
   
6.         X = Range("A65536").End(xlUp).Row + 1
   
7.         Sheets(1).Range("b2").Copy
   
8.         Sheets(2).Cells(X, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
9.               :=False, Transpose:=False
   
10.         Sheets(1).Select
    
11.         Range("B3:B15").Copy
    
12.           Sheets(2).Select
    
13.          Cells(X, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
14.               :=False, Transpose:=True
    
15.         Sheets(1).Select
    
16.         Range("B3:B8").ClearContents
    
17.         Range("B9:B15").ClearContents
    
18.         Range("B3").Select
    
19.    Else
    
20.         MsgBox ("数据未填写完整,请确认！")
    
21.    End If
    
22. End Sub
    
23. 
    

复制代码

你先得在C1单元格填上14，才会复制数据。