|
かみちゃん さん 、こんにちは。
>>たとえば、
>>Range("E3,I3").Select
>>というような簡単なコードにしても同様のエラーになりますか?
>>(省略)・・・・・
>>の内容に問題があるような感じがします。
エラーはなくなりました。
>とりあえずは、
>For i = 3 To 100
> Worksheets("Sheet1").Activate
> Cells(1, 1) = i
>としてみてください。
マクロは正常終了しますが、sheet1のE3,I3をコピーして、sheet3に貼り付けを繰り返しているだけのようです。
実現したいこと(3行処理→4行処理・・・100行処理)はできておりません。
Sub データ取得貼付2()
Dim i As Integer '★
' For i = 3 To 100
' MsgBox Cells(1, 1).Address(, , , True) '☆
ここを有効にすると、Microsoft Excelのメッセージがポップアップしてきて、 [sheet1]sheet3!$A$1と表示され、タスクを終了する必要になります。
' Cells(1, 1) = i
For i = 3 To 100
Worksheets("20u06_1stTD").Activate
Cells(1, 1) = i
If Cells(i, 1) <> "" Then '◆
' Worksheets("sheet1").Activate
Range("E3,I3").Select '☆
' Range("E3,I3,M3(省略)・・・・・,BW3").Select
' Range("Ei,Ii,Mi(省略)・・・・・,BWi").Select
Selection.Copy
Sheets("sheet3").Select
Range("G5").Select
' ↓xlPasteAll, の後に △_ が 抜けている?(△は半角スペース)
Selection.PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End If
Next
End Sub
|
|