Excel VBA質問箱 IV

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

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


51998 / 76732 ←次へ | 前へ→

【29582】Re:データの分類
回答  とまと  - 05/10/8(土) 15:29 -

引用なし
パスワード
   こんにちは。
テストシートで試してみてください。


Sub test()

Dim rowA As Long
Dim i As Long, k As Long
Dim m2 As Long
Dim m3 As Long
Dim m4 As Long
Dim vntA, vntB


rowA = Range("A65536").End(xlUp).Row


ReDim vntA(1 To rowA - 1, 1 To 16)
vntB = Range("A2").Resize(rowA - 1, 16).Value


For i = 2 To Range("A65536").End(xlUp).Row

 m2 = 5
 m3 = 9
 m4 = 13
 
 For k = 1 To Cells(i, "Q").End(xlToLeft).Column
   Select Case vntB(i - 1, k)
    Case 0 To 1
        vntA(i - 1, k) = vntB(i - 1, k)
    Case 2
        vntA(i - 1, m2) = 2
        m2 = m2 + 1
    Case 3
        vntA(i - 1, m3) = 3
        m3 = m3 + 1
    Case 4
        vntA(i - 1, m4) = 4
        m4 = m4 + 1
   End Select
 Next k
Next i
 
Range("A2").Resize(rowA - 1, 16).Value = vntA


End Sub
0 hits

【29542】データの分類 あらみの 05/10/7(金) 11:42 質問
【29544】Re:データの分類 m2m10 05/10/7(金) 12:19 お礼
【29561】Re:データの分類 あらみの 05/10/7(金) 17:04 質問
【29582】Re:データの分類 とまと 05/10/8(土) 15:29 回答
【29686】Re:データの分類 あらみの 05/10/11(火) 19:47 質問
【29692】Re:データの分類 とまと 05/10/11(火) 22:33 質問
【29698】Re:データの分類 あらみの 05/10/12(水) 7:16 質問
【29702】Re:データの分類 とまと 05/10/12(水) 9:03 回答
【29705】Re:データの分類 とまと 05/10/12(水) 9:24 発言
【29904】Re:データの分類 あらみの 05/10/16(日) 0:13 お礼

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