[已解决]二个不同的表格但宏是一样的，为什么1不能用。求高手解答~~~

luren24

Private Sub 复制_Click()
With Sheet1
        For i = 1 To 5000
            If .Range("b" & i) <> "" Then
                .Rows(i).Copy Sheet2.Cells(Sheet2.Cells(65536, 1).End(xlUp).Row + 1, 1)
            End If
        Next i
    End With
End Sub

二个不同的表格但宏是一样的，为什么1不能用。求高手解答~~~

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-11-16 13:38

工作薄1的代码改成这样

1. Private Sub CommandButton1_Click()
   
2. With Worksheets("Sheet1")
   
3.         For i = 1 To 5000
   
4.             If .Range("b" & i) <> "" Then
   
5.                 .Rows(i).Copy Worksheets("Sheet2").Cells(Worksheets("Sheet2").Cells(65536, 1).End(xlUp).Row + 1, 1)
   
6.             End If
   
7.         Next i
   
8.     End With
   
9. End Sub

复制代码

跳转到最佳答案楼层

luren24

这个功能就是想实现把sheet1里面第二列非空白值所在位置的单元格整行复制到sheet2里面，并且sheet2里面要按顺序排放。不知道说的明不明白

苏子龙

sheet1改成activesheet，或者改成对应表格名试试

luren24

不行？

scl5801

luren24 发表于 2016-11-16 09:08
这个功能就是想实现把sheet1里面第二列非空白值所在位置的单元格整行复制到sheet2里面，并且sheet2里面要按 ...

你的1和2中的各个表的（名称）及"name" 均不一致，1的"name"为sheet1，（名称）为“复制已有内容”；而且1的"name"为sheet2，（名称）为“sheet8”；和2的完全不一样，改一致就好了。

望帝春心

工作薄1的代码改成这样

1. Private Sub CommandButton1_Click()
   
2. With Worksheets("Sheet1")
   
3.         For i = 1 To 5000
   
4.             If .Range("b" & i) <> "" Then
   
5.                 .Rows(i).Copy Worksheets("Sheet2").Cells(Worksheets("Sheet2").Cells(65536, 1).End(xlUp).Row + 1, 1)
   
6.             End If
   
7.         Next i
   
8.     End With
   
9. End Sub

复制代码

luren24

谢谢了春心，是我想要的。。。。