| |
▼板さん さん：
何か非常に面白い問題だけれど、同時に、
非常に難しい問題ですね(-_-)
手始めに、A列のデータ(コード)について、どうグループ化するかを
VBA風に考えてみます。
A列データを１次元配列に格納し、
検索条件として
(1)A列のコードが文字列で、かつ、先頭１文字が「0か1」のばあい
先頭１文字を取り除き、
(2)文字数が5〜7のとき、
という条件で、配列全体からこれを含むコードを
VBA.Filter関数で抽出してみますと、
Sub Try1()
Dim ColA As Range
Dim v, w
Dim ss As String
Dim i As Long
Set ColA = Range("A2", Cells(Rows.Count, 1).End(xlUp))
v = Application.Transpose(ColA) '------- A列を配列に
For i = 1 To UBound(v)
ss = v(i)
If Not IsNumeric(ss) Then
If InStr("01", Left$(ss, 1)) Then ss = Mid$(ss, 2)
End If
Select Case Len(ss)
Case 5 To 7
w = Filter(v, ss)
If IsArray(w) Then
Debug.Print "[" & ss & "]", Join(w, ",")
End If
End Select
Next
End Sub
結果、こうなります。
--------------------------------------
'[12345] 12345,012345a
'[12345a] 012345a
'[987a654] 987a654,1987a65400
'[23456] 23456,23456aa,23456a
'[23456aa] 23456aa
'[23456a] 23456aa,23456a
'重複しているコードをグループ化する
Sub Try2()
Dim ColA As Range
Dim v, w, key
Dim ss As String, sss As String
Dim i As Long, j As Long, k As Long, ok As Long
Set ColA = Range("A2", Cells(Rows.Count, 1).End(xlUp))
v = Application.Transpose(ColA)
For i = 1 To UBound(v)
ss = v(i)
If Not IsNumeric(ss) Then
If InStr("01", Left$(ss, 1)) Then ss = Mid$(ss, 2)
End If
Select Case Len(ss)
Case 5 To 7
ok = 1
For j = 5 To Len(ss)
If InStr(sss, Left$(ss, j)) Then ok = 0: Exit For
Next
If ok Then sss = sss & "|" & ss
End Select
Next i
For Each key In Split(Mid$(sss, 2), "|")
w = Filter(v, key)
Debug.Print "[" & key & "]", Join(w, ",")
Next
End Sub
すると、このサンプルでは 結果はこうなります。
-----------------------------------
'[12345] 12345,012345a
'[987a654] 987a654,1987a65400
'[23456] 23456,23456aa,23456a
しかしこれは keyとなるコードが文字列数の少ないほうから
出現していたからです
つぎのような並び順の場合、
---------------------------
コード
1987a65400
987a654
23456aa
23456a
12345a
23456
12345
結果はこうなります。
------------------------------------
[987a654] 1987a65400,987a654
[23456aa] 23456aa
[12345a] 012345a
'これは失敗です。
検索コードグループ文字列は 最短一致するkeyに置き換えねばなりません。
Sub Try3()
Dim ColA As Range
Dim v, w, key
Dim s As String, ss As String, sss As String
Dim i As Long, k As Long
Set ColA = Range("A2", Cells(Rows.Count, 1).End(xlUp))
v = Application.Transpose(ColA)
For i = 1 To UBound(v)
ss = v(i)
If Not IsNumeric(ss) Then
If InStr("01", Left$(ss, 1)) Then ss = Mid$(ss, 2)
End If
Select Case Len(ss)
Case 5 To 7
Distribute sss, ss
End Select
Next i
For Each key In Split(Left$(sss, Len(sss) - 1), "|")
w = Filter(v, key)
Debug.Print "[" & key & "]", Join(w, ",")
Next
End Sub
Private Sub Distribute(sss$, ss$)
Dim ok%, j&, j1&, j2&, s$, zz$
ok = 1
For j = 5 To Len(ss)
s = Left$(ss, j)
j1 = InStr(sss, s)
If j1 Then
j2 = InStr(j1 + Len(s), sss, "|")
zz = Mid$(sss, j1, j2 - j1)
sss = Replace(sss, zz, s)
ok = 0
Exit For
End If
Next
If ok Then sss = sss & ss & "|"
End Sub
これを同じデータで実行すると、こうなります。
-------------------------------------
'[987a654] 1987a65400,987a654
'[23456] 23456aa,23456a,23456
'[12345] 012345a,12345
ここまでの思考過程を把握するには、提示のような簡単なデータをシートに
おいて、ステップ実行してみて、１行づつ実行しながら、変数が変わっていく
状態をトレースするといいです。
分からない点がございましたら、レスください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 08/11/2(日) 23:32 -
