Excel VBA質問箱 IV

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

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


43851 / 76732 ←次へ | 前へ→

【37908】Re:複数行参照してセルをコピーしていくんですが・・・
発言  ponpon  - 06/5/23(火) 0:58 -

引用なし
パスワード
   すでに、Keinさんから回答があるので、おこがましいのですが、
一応作ってみたので、黙々とループさせています。
こういうことでしょうか?書き出しは、Sheet1でいいのですよね?

Sub test()
  Dim i As Long, j As Long, t As Long
  Dim p As Long, m As Long
 
  Application.ScreenUpdating = False
  Sheets("Sheet2").Cells.ClearContents
  With Sheets("Sheet1")
    j = 1: p = 1: m = 1
    Do
     For i = 15 To 34 Step 9
       For t = 1 To 3
        If .Cells(i, j + t).Value = "内" Then
          .Cells(i, j + t).Offset(3).Copy
           .Cells(m, p + 1).PasteSpecial
          p = p + 1
         If p > 12 Then m = m + 1: p = 1
        End If
       Next
     Next
     i = 15
     j = j + 3
     If .Cells(i, j + t).Value = "" Then Exit Do
    Loop
  End With
  With Application
    .ScreenUpdating = True
    .CutCopyMode = False
  End With
End Sub
2 hits

【37905】複数行参照してセルをコピーしていくんですが・・・ せりかっち 06/5/22(月) 23:26 質問
【37907】Re:複数行参照してセルをコピーしていくん... Kein 06/5/23(火) 0:24 回答
【37908】Re:複数行参照してセルをコピーしていくん... ponpon 06/5/23(火) 0:58 発言
【37935】Re:複数行参照してセルをコピーしていくん... せりかっち 06/5/23(火) 19:03 お礼

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