[已解决]请大侠帮忙把下面代码修改下，复制后，粘贴时不粘贴边框

32058001

请大侠帮忙把下面代码修改下，复制后，粘贴时不粘贴边框
粘贴的效果好比是选择性粘贴数值

Sub aa()
s = 5
For i = 2 To Sheet1.Range("b56565").End(3).Row
For k = 5 To Sheet2.Range("b56565").End(3).Row
If Sheet1.Cells(i, 2) = Sheet2.Cells(k, 19) Then Sheet2.Rows(k).Copy Sheet3.Range("a" & s): s = s + 1
Next
Next
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2011-11-6 16:57

1. Sub bb()
   
2.     s = 5
   
3.     For i = 2 To Sheet1.Range("b56565").End(3).Row
   
4.         For k = 5 To Sheet2.Range("b56565").End(3).Row
   
5.             If Sheet1.Cells(i, 2) = Sheet2.Cells(k, 19) Then
   
6.                 Sheet2.Rows(k).Copy
   
7.                 Sheet3.Range("a" & s).Resize(1, 256).PasteSpecial Paste:=xlPasteValues
   
8.                 s = s + 1
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

windimi007

回复 32058001 的帖子

不知道下面的代码是否符合楼主的要求？{:3912:}

1. Sub aa()
   
2.     s = 5
   
3.     For i = 2 To Sheet1.Range("b56565").End(3).Row
   
4.         For k = 5 To Sheet2.Range("b56565").End(3).Row
   
5.             If Sheet1.Cells(i, 2) = Sheet2.Cells(k, 19) Then Sheet3.Range("a" & s) = Sheet2.Rows(k): s = s + 1
   
6.         Next
   
7.     Next
   
8. End Sub

复制代码

32058001

回复 windimi007 的帖子

大侠，运行后，没有获取到数据，

zjdh

1. Sub aa()
   
2.     s = 5
   
3.     For i = 2 To Sheet1.Range("b56565").End(3).Row
   
4.         For k = 5 To Sheet2.Range("b56565").End(3).Row
   
5.             If Sheet1.Cells(i, 2) = Sheet2.Cells(k, 19) Then
   
6.                 arr = Sheet2.Rows(k)
   
7.                 Sheet3.Range("a" & s).Resize(1, 256) = arr
   
8.                 s = s + 1
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub

复制代码

zjdh

1. Sub bb()
   
2.     s = 5
   
3.     For i = 2 To Sheet1.Range("b56565").End(3).Row
   
4.         For k = 5 To Sheet2.Range("b56565").End(3).Row
   
5.             If Sheet1.Cells(i, 2) = Sheet2.Cells(k, 19) Then
   
6.                 Sheet2.Rows(k).Copy
   
7.                 Sheet3.Range("a" & s).Resize(1, 256).PasteSpecial Paste:=xlPasteValues
   
8.                 s = s + 1
   
9.             End If
   
10.         Next
    
11.     Next
    
12. End Sub
    

复制代码