|
かみちゃん さん
連絡が遅くなりまして、申し訳ありません。実は海外からアクセスをしておりまして、サーバーの調子がよくなく、現在遠出をしてインターネットカフェからアクセスしています。
>書いておられる仕様とコードが合っていないように思いますが、
>Copy元のアクティブシートが不安定なのだと思います。
>具体的には、以下の★の行は、少なくとも必要かと思います。
早速下記の行を追加して試してみたいと思います。
今後、お返事、お礼が遅れることが大です。あらかじめお詫びしておきたいと思います。回答ありがとうございます。
>
> For k = 1 To 5
> Sheets("Sheet1").Select '★
> Range(Cells(k + 1, 102), Cells(k + 1, 151)).Copy
> Sheets("変換後のデータ入力画面").Select
> Range(Cells(k + 1, 2), Cells(k + 1, 51)). _
> .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
> :=False, Transpose:=False
> Next k
> Range("A1").Select
>End Sub
|
|