Excel VBA質問箱 IV

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

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


19933 / 76732 ←次へ | 前へ→

【62224】Re:Forで、条件に当てはまらない場合次の処理へ
発言  つん  - 09/7/2(木) 14:46 -

引用なし
パスワード
   ▼チューリップ さん
こんにちは^^
横から失礼します。

貼り付け先の、列を決める変数をもひとつ用意されたらどうですか?

  k = 1
  For t = start To last
  
    If Worksheets("Sheet3").Rows(t).Hidden = False Then ’※1
      If k Mod 3 = 0 Then k = k + 1
      Worksheets("Sheet3").Cells(t, 1).Resize(, 4).Copy
      Worksheets("あああ").Cells(1, k).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
             :=False, Transpose:=True
      k = k + 1
    End If
      
  Next t

※1・・これいれておかないと、非表示になってる行もコピーちゃいませんか?

あ、コピー処理んとこも、変えてみましたが、こっちのがすっきりするかな〜・・・と。
いちいち、「ナンタラ.Activate」→「Selection.カンタラ」ってしなくても、直に処理してもOKですよ^^
たまに、しないとダメな場合もあるけど。

1 hits

【62220】Forで、条件に当てはまらない場合次の処理へ チューリップ 09/7/2(木) 13:29 質問
【62221】Re:Forで、条件に当てはまらない場合次の処... kanabun 09/7/2(木) 14:10 発言
【62222】Re:Forで、条件に当てはまらない場合次の処... チューリップ 09/7/2(木) 14:34 発言
【62224】Re:Forで、条件に当てはまらない場合次の処... つん 09/7/2(木) 14:46 発言
【62226】Re:Forで、条件に当てはまらない場合次の処... チューリップ 09/7/2(木) 15:27 お礼
【62223】Re:Forで、条件に当てはまらない場合次の処... SS 09/7/2(木) 14:37 発言
【62225】Re:Forで、条件に当てはまらない場合次の処... チューリップ 09/7/2(木) 14:54 お礼

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