|
PIさん、よくコードを見てませんでした。
ごめんさい
>With ThisWorkbook.Sheets(1)
> .Range(.Cells(5, i + 1), .Cells(24, i + 1)).Value = _
> BK(i).Sheets(1).Range(Cells(2, i), Cells(24, i)).Value
>End With
参照元と参照先の大きさが違いますよ、それと上記のような書き方を
する場合
BK(i).Sheets(1).Range(BK(i).Sheets(1).Cells(5, i), BK(i).Sheets(1).Cells(24, i)).Value
としてやらないと、エラーになります。
With ThisWorkbook.Sheets(1)
.Range(.Cells(5, i + 1), .Cells(24, i + 1)).Value = _
BK(i).Sheets(1).Range(BK(i).Sheets(1).Cells(5, i), BK(i).Sheets(1).Cells(24, i)).Value
End With
でお試しください。
|
|