Excel VBA質問箱 IV

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

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


31094 / 76732 ←次へ | 前へ→

【50893】Re:セルの中身を振り分ける 訂正
発言  ichinose  - 07/8/21(火) 21:54 -

引用なし
パスワード
   >'=========================================================
>Sub test()
>  Dim シート名 As Variant
>  Dim rng As Range
>  Dim g0 As Long
   dim g1 as long '追加してください
>  Dim orw As Long
>  シート名 = Array("甲", "乙", "丙")
>  With Worksheets("sheet1")
>    Set rng = .Range("a2", .Cells(.Rows.Count, 1).End(xlUp))
>    End With
>  If rng.Row > 1 Then
>    For g0 = 1 To rng.Count
>     For g1 = LBound(シート名) To UBound(シート名)
>       If InStr(rng(g0, 2), シート名(g1)) > 0 Then
>        With Worksheets(シート名(g1))
>          orw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
>          .Range(.Cells(orw, 1), .Cells(orw, 2)).Value = rng(g0).Resize(, 2).Value
>          End With
>        End If
>       Next
>     Next
>    End If
>End Sub

2 hits

【50888】セルの中身を振り分ける 33 07/8/21(火) 20:47 質問
【50892】Re:セルの中身を振り分ける ichinose 07/8/21(火) 21:51 発言
【50893】Re:セルの中身を振り分ける 訂正 ichinose 07/8/21(火) 21:54 発言
【50919】Re:セルの中身を振り分ける 訂正 33 07/8/22(水) 13:02 お礼

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