Excel VBA質問箱 IV

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

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


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

34913 / 76734

←次へ　｜　前へ→


	【47024】Re:検索値を別シートへ転記

かみちゃん - 07/2/25(日) 16:29 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>16日東の人はF2:H6 名の人はI2:K6 大の人はL2:L6 休日の人はM2:P6に表示させた
>く思います　（シート1の　"出"の人も休日に表示させる)

いろいろ伺った結果、以下のような感じでできると思います。
サンプルデータを作って検証済みです。
Sub Sample()
　Dim rngList As Range
　Dim c As Range
　Dim intCol As Integer
　Dim cnt1 As Integer
　Dim cnt2 As Integer
　Dim cnt3 As Integer
　Dim cnt4 As Integer
　
　With Sheets("Sheet1").Range("D5")
　　Set rngList = .Resize(.Offset(Rows.Count - .Row).End(xlUp).Row - .Row + 1) _
　　　.Offset(, 1).Resize(, 31)
　End With
　
　For intCol = 1 To rngList.Columns.Count
　　For Each c In rngList.Columns(intCol).Cells
　　　With Sheets("Sheet2").Range("F2").Offset((intCol - 1) * 5)
　　　　Select Case c.Value
　　　　　Case "東"
　　　　　　cnt1 = cnt1 + 1
　　　　　　.Resize(5, 3).Cells(cnt1).Value = _
　　　　　　　Sheets("Sheet1").Cells(c.Row, 4).Value
　　　　　Case "名"
　　　　　　cnt2 = cnt2 + 1
　　　　　　.Offset(, 3).Resize(5, 3).Cells(cnt2).Value = _
　　　　　　　Sheets("Sheet1").Cells(c.Row, 4).Value
　　　　　Case "大"
　　　　　　cnt3 = cnt3 + 1
　　　　　　.Offset(, 6).Resize(5, 1).Cells(cnt3).Value = _
　　　　　　　Sheets("Sheet1").Cells(c.Row, 4).Value
　　　　　Case "休", "出"
　　　　　　cnt4 = cnt4 + 1
　　　　　　.Offset(, 7).Resize(5, 4).Cells(cnt4).Value = _
　　　　　　　Sheets("Sheet1").Cells(c.Row, 4).Value
　　　　End Select
　　　End With
　　Next
　Next
　MsgBox "終了しました"
End Sub

2 hits

▼

【46983】検索値を別シートへ転記 hiro 07/2/24(土) 17:27