在Excel中用VBA代码实现 自动在一张表的右边复制出相同表格并自动转汇率！！！

Question

在Excel中用VBA代码实现自动在一张表的右边复制出相同表格（复制出的表格标签名为Euro），并且自动将原表中的美元数据转成欧元（保留两位小数，汇率为手动输入的可变量），其他数据不变。求代码！！！非常感谢！！！
只将原表中带$的数据(货币格式)乘以汇率转换成带€的数据，比如$500转成€363.66, 其他数据不变，比如50%（百分比格式）还是50%

Answer 1

Dim sheetName As String
sheetName = ActiveSheet.Name
Dim cellAddress As String
cellAddress = ActiveCell.Address

tr = Range(cellAddress).CurrentRegion.Rows.Count
tc = Range(cellAddress).CurrentRegion.Columns.Count
tt = Cells(5, 1).NumberFormatLocal

Worksheets.Add before:=Worksheets(1)
ActiveSheet.Name = "Euro"
Dim newSheetName As String
newSheetName = ActiveSheet.Name

For i = 1 To tr
For j = 1 To tc
tt = Worksheets(sheetName).Cells(i, j).NumberFormatLocal
Worksheets(sheetName).Cells(i, j).Copy
Worksheets(sheetName).Paste Destination:=Worksheets(newSheetName).Cells(i, j)
If Left(tt, 1) = "$" Then
ttnew = Replace(tt, "$", "€")
Worksheets(newSheetName).Cells(i, j).NumberFormatLocal = ttnew
End If
Next j
Next i追问

使用后复制出的表格只有第一个格子有内容。。。

追答

单击需要复制的任一单元格，然后运行宏

追问

规定要整张表一起复制，不能一格一格手动复制