我有一张 2 张的 excel 电子表格。在第一张表中,我得到了一些值,当我单击一个按钮时,在第二张表中会发生以下情况: 1. 在顶部插入新行 2. 复制第一张表中的数据。
但是,在复制的单元格之后有一些带有公式的列,我不知道在插入新行后如何在 vbscript 中复制这些公式。
Sub Trade1()
Sheets("Trades").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2:R2").Select
Selection.ClearContents
Range("A2").Select
Dim fromRange As Range, toRange As Range
Set fromRange = Sheets("Enter Trade").Range("B2:B20")
Set toRange = Sheets("Trades").Range("A2")
fromRange.Copy
toRange.PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub