如何修改代码以保持目标单元格格式

Question

我最近开始使用以下代码：

Dim sht1, sht2 As Worksheet

Set sht1 = Worksheets("Sheet1")
Set sht2 = Worksheets("Table")

sht1.Range("K10").Copy sht2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
sht1.Range("G15").Copy sht2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)

End Sub

我希望社区能够建议如何修改它，以使目标单元格保持其格式。

任何帮助将不胜感激。预先谢谢你。

Answer 1

只需进行价值转移，无需000 001 000 2.59 2.4595 2.4573 2.62 002 000 2.4537 2.4422 2.43 2.4537 003 000 2.43 2.3399 2.3399 2.43 001 001 001 1.56 1.52 1.51 1.56 002 001 002 0.67 0.66 0.66 0.67 003 001 003 0.5 0.4949 0.49 0.5 002 003 0.5 0.51 0.4945 0.515 003 003 0.5101 0.5087 0.5005 0.5289 004 001 004 0.96 0.9601 0.96 0.9601 003 004 1 0.998 0.98 1 005 001 005 0.5291 0.5001 0.5 0.54 002 005 0.5 0.4801 0.4801 0.5 003 005 0.49 0.4802 0.4362 0.49 。

请注意，如果您没有明确声明Copy，sht1实际上就是Variant。

As Worksheet