vba选择性粘贴为数值并判断行数

更新时间2021-11-23 14:57:36

求高手写个宏，把表格1的内容选择性粘贴为数值到表格2的D2开始，表格2存在数据，被覆盖粘贴后，判断粘贴的行数，如果大于原来的数据行，A-C列公式下拖，如果小于原来的数据行，多出的原数据行删除。

Sub biao1TObiao2()

    Sheets("Sheet1").Select    

Range("A1").Select    

Range(Selection, Selection.End(xlToRight)).Select    

Range(Selection, Selection.End(xlDown)).Select    

n1 = Selection.Rows.Count + 1   

 Selection.Copy    

Sheets("Sheet2").Select    

n2 = Application.CountA(Range("A:A"))    

Range("D2").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False    

Application.CutCopyMode = False   

 If n1 > n2 Then    

Range("A" & n2 & ":C" & n2).Select    

Selection.AutoFill Destination:=Range("A" & n1 & ":C" & n2)   

 End If   

 If n1 < n2 Then Range(n1 + 1 & ":" & n2).Delete   

End Sub

这个宏不是一两句能写好的，而且还要有表格数据参照，你把文件发我微信lrz19991上，我写好宏再传回给你。