在VBA中转置和格式化数据，需要帮助确保在正确的工作表上编辑我的数据

Dim ws As Worksheet
Set ws = ActiveSheet

Dim rng As Range
Set rng = ws.Range("A1:D10") '将范围更改为你的实际数据范围

Dim transposedData As Variant
transposedData = Application.Transpose(rng.Value)

Dim transposedSheet As Worksheet
Set transposedSheet = ThisWorkbook.Sheets.Add '创建一个新的工作表用于存放转置后的数据
transposedSheet.Name = "转置数据" '将工作表命名为"转置数据"

transposedSheet.Range("A1").Resize(UBound(transposedData, 1), UBound(transposedData, 2)).Value = transposedData

transposedSheet.Range("A1").CurrentRegion.NumberFormat = "0.00" '将数据格式设置为两位小数

transposedSheet.Columns.AutoFit '自动调整列宽以适应数据

transposedSheet.Activate