Vba 更改列顺序？

我在IRow=…行上不断得到一个“类型不匹配”错误13

我想知道这个代码是如何修复的

我是艾尔斯

致以最良好的祝愿

Sub MoveColumns()

Dim iRow As Long
Dim iCol As Long
Dim data_sheet1 As Worksheet
Dim target_Sheet As Worksheet

Worksheets.Add.Name = "Final Report"
Set data_sheet1 = ActiveWorkbook.Worksheets("InputPrep")
Set target_Sheet = ActiveWorkbook.Worksheets("Final Report")

iRow = Sheets(data_sheet1).UsedRange.Rows.Count
'Determine how many rows are in use

改变

到

Sheets（index）

要求

index

为工作表名称或索引号。但您正在传递类型为“工作表”的对象。既然已经创建了对图纸的引用，请使用它

iRow = Sheets(data_sheet1).UsedRange.Rows.Count

iRow = data_sheet1.UsedRange.Rows.Count