vba - 列の順序を変更しますか?

Question

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

Answer 1

変化する

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

に

iRow = data_sheet1.UsedRange.Rows.Count

Sheets(index)シートindex名またはインデックス番号である必要があります。しかし、タイプ Worksheet のオブジェクトを渡しています。既にシートへの参照を作成しているので、それを使用するだけです。