Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45405 / 76732

←次へ　｜　前へ→


	【36320】Re:35行９列に仕上げる

Kein - 06/3/28(火) 21:46 -


	引用なし

	パスワード

Sub 集計2()
　 Dim Ws As Worksheet
　 Dim Ary As Variant
　 Dim MyC As Integer

　 For Each Ws In Worksheets
　　　If Ws.Name <> "集計表" And Ws.Name <> "XYZ" Then
　　　　 Ary = Array(Ws.Range("A2").Value, _
　　　　 Ws.Range("B2").Value, Ws.Range("D4").Value)
　　　　 Select Case Val(Ary(0))
　　　　　　Case Is < 36: MyC = 1
　　　　　　Case Is < 71: MyC = 4
　　　　　　Case Else: MyC = 7
　　　　 End Select
　　　　 Sheets("集計表").Cells(65536, MyC).End(xlUp) _
　　　　 .Offset(1).Resize(, 3).Value = Ary
　　　　 Erase Ary
　　　End If
　 Next
End Sub

で、どうでしょーか ?

1 hits

▼

【36318】35行９列に仕上げる gako 06/3/28(火) 21:05