利用宏替换数据

众望星君

ykcbf1100

简单一点，改用数组写入。

WANT-T

录制宏就有代码了，然后绑定到按钮上

ykcbf1100

参与一下。。。

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub 数据1()
    With Sheet1
        r = .Cells(.Rows.Count, 1).End(3).Row
        arr = .Range("a3:b" & r)
        .[c3].Resize(r - 2) = Application.Index(arr, , 1)
    End With
    Beep
End Sub
Sub 数据2()
    With Sheet1
        r = Sheet1.Cells(.Rows.Count, 1).End(3).Row
        arr = .Range("a3:b" & r)
        Sheet1.[c3].Resize(r - 2) = Application.Index(arr, , 2)
    End With
    Beep
End Sub

autohotey

按钮1对应宏A，按钮2对应宏B

1. 
   
2. Sub A()
   
3.     Dim ws As Worksheet
   
4.     Set ws = ThisWorkbook.Sheets("数据")
   
5.     ws.Range("C2:C" & ws.Cells(ws.Rows.count, "C").End(xlUp).Row).Copy ws.Range("A2:A" & ws.Cells(ws.Rows.count, "A").End(xlUp).Row)
   
6. End Sub
   
7. 
   
8. Sub B()
   
9.     Dim ws As Worksheet
   
10.     Set ws = ThisWorkbook.Sheets("数据")
    
11.     ws.Range("C2:C" & ws.Cells(ws.Rows.count, "C").End(xlUp).Row).Copy ws.Range("B2:B" & ws.Cells(ws.Rows.count, "B").End(xlUp).Row)
    
12. End Sub
    

复制代码