求助VBA中怎么将对应的sheet1的整行数据剪切到sheet2中

潜行诡瀛

dushaguo 发表于 2019-10-8 20:03
我是office，图 上是单元格地址

还要，大佬，麻烦求教一下，
如果比较条件再多一个呐？以前是L列 比较L列，现在L列 比较 L列 + O列 比较 O列，并且L列或者O列数据存在重复数据（两个777），但是L列+O列，一起，数据绝对不会有重复，剪切那部分程序改怎么改呢？
    If Sheet2.Range("l" & j) = Sheet1.Range("l" & i) And Sheet2.Range("o" & j) = Sheet1.Range("o" & i) Then
    Sheet1.Range("a" & i).Resize(, 15).Cut Sheet2.Range("a" & j).Resize(, 15)这句，请问该怎么该呢？感谢大佬！

潜行诡瀛

dushaguo 发表于 2019-10-8 20:03
我是office，图 上是单元格地址

回复还要审核了？？ 审核没通过？？？  

ning84

网页拷贝到剪贴板中，用Paste粘贴到单元格中。数据整理。

1. Sub M()
   
2. 
   
3.     Dim Rng As Range, oRng As Range
   
4.     Dim Row, oRow, Str
   
5.     Dim oDate As Date
   
6.         Set Rng = Selection
   
7.         Rng(, 10).Select
   
8.         ActiveSheet.Paste
   
9.         Set oRng = Rng(, 10).CurrentRegion
   
10.         Debug.Print oRng.Address
    
11.         
    
12.         Row = 1
    
13.         oRow = 1
    
14.         For ii = 1 To oRng.Rows.Count
    
15.              For jj = 1 To 5
    
16.                 Debug.Print oRng(oRow, 1).Address
    
17.                 Rng(Row, jj) = oRng(oRow, 1)
    
18.                 oRow = oRow + 1
    
19.              Next jj
    
20.              Row = Row + 1
    
21.         Next ii
    
22.         oRng.Clear
    
23.         Set oRng = Rng.CurrentRegion
    
24.         oRng.Font.Size = 9
    
25.         
    
26. End Sub
    
27. 
    

复制代码