Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23652 / 76732 ←次へ | 前へ→

【58443】Re:For文で集計貼付
質問  初心者  - 08/10/26(日) 13:59 -

引用なし
パスワード
   かみちゃん さん 、こんにちは。

>>たとえば、
>>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
0 hits

【58431】For文で集計貼付 初心者 08/10/26(日) 6:36 質問
【58432】Re:For文で集計貼付 かみちゃん 08/10/26(日) 8:00 発言
【58434】Re:For文で集計貼付 初心者 08/10/26(日) 10:26 質問
【58435】Re:For文で集計貼付 かみちゃん 08/10/26(日) 10:33 発言
【58443】Re:For文で集計貼付 初心者 08/10/26(日) 13:59 質問
【58444】Re:For文で集計貼付 かみちゃん 08/10/26(日) 14:09 発言
【58445】Re:For文で集計貼付 初心者 08/10/26(日) 14:36 質問
【58448】Re:For文で集計貼付 かみちゃん 08/10/26(日) 16:04 発言
【58451】Re:For文で集計貼付 初心者 08/10/26(日) 18:51 質問
【58452】Re:For文で集計貼付 かみちゃん 08/10/26(日) 19:13 発言
【58453】Re:For文で集計貼付 初心者 08/10/26(日) 19:56 質問
【58454】Re:For文で集計貼付 かみちゃん 08/10/26(日) 20:32 発言
【58455】Re:For文で集計貼付 初心者 08/10/26(日) 21:58 お礼

23652 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free