エクセルマクロを使って、表を完成させたいのですが

質問

お尋ねします。
ブックＡのシート１には、下記のように数字が入っています。
それをもとに、ブックＢのシート１に表を完成させたいのですが、どのようにすればいいでしょうか。
ブックＢは、ブックＡのＡ列の値がそれぞれいくつあるかを示したものです。

ブックＡ
　　　Ａ列
１行　２Ａ　
２行　１Ａ
３行　１Ｃ
４行　４Ｄ
５行　５Ｄ
６行　１Ａ
※行数はこれ以上ありますが、Ａ列には、数字とアルファベットの
　組み合わせで２桁で構成されています。
※アルファベットはＡ～Ｄで、数字は１～５です。

ブックＢ
　　　Ａ列　Ｂ列　Ｃ列　Ｄ列　Ｆ列
１行　　２　　　 　　１　
２行　　１
３行　
４行　　　　　　　 　　　　１
５行　　　　　　　　 　　　　　　１

※ブックＡのＡ列の値からブックＢにブックＡの値が
　それぞれ何個あるかを示したいのです。

　よろしくお願いします。

回答No.3

imogasi · ベストアンサー

A列でソート
例データ
１Ａ
１Ａ
１Ｃ
２Ａ
２Ｃ
３Ｃ
４Ｄ
４Ｄ
５Ｄ
ーーー
全角文字で、１やAが入っているという前提で
A-Zまでしかないという前提で
（半角だともっとやりやすいが）
同一シートのD列以右に結果計数を出した。
ソート法はコードが他に比べ、簡単になるはず。
ーー
Sub test02()
d = Range("a65536").End(xlUp).Row
'MsgBox d
m = Cells(2, "A")
ct = 0
For i = 2 To d
If Cells(i, "A") = m Then
ct = ct + 1
Else
'--計数セット
r = Asc(Left(m, 1)) + 32177
c = Asc(Right(m, 1)) + 32161
Cells(r + 1, c + 3) = ct
'--
ct = 0
ct = ct + 1
m = Cells(i, "A")
End If
Next i
End Sub
ーーー
結果　C2:G１０
A B C D
1 2 - 1 -
2 1 - 1 -
3 - - 1 -
4 - - - 2
5 - - - -

お礼

ありがとうございます。
皆様から頂きましたヒントを元に試しております。

回答No.4

某HN クロメート(Chromate)（@CoalTar）

回答番号：No.2です
>※アルファベットはＡ～Ｄで、数字は１～５です。
見逃してました。っていうかF列って何？
>　　　Ａ列　Ｂ列　Ｃ列　Ｄ列　Ｆ列

× With Worksheets("Sheet2").Range("A1:E5")
○ With Worksheets("Sheet2").Range("A1:D5")
数式は
× CHAR(9008+{1;2;3;4;5})&CHAR(9024+{1,2,3,4,5}))
○ CHAR(9008+{1;2;3;4;5})&CHAR(9024+{1,2,3,4})

さらに、当方の回答の Sheet1 → ブックＡ
Sheet2が ブックＢ にあたります
ブック間までは考えてませんでした。

# imogasiさん 最後の「５Ｄ」がカウントされていませんよ

補足

度々ありがとうございます。
もう少し頑張ってみます！

回答No.2

某HN クロメート(Chromate)（@CoalTar）

Sub Macro2()
Application.ScreenUpdating = False
Dim n As Long
n = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

'↓ ほとんど自動記録(^^;
With Worksheets("Sheet2").Range("A1:E5")
.FormulaArray = _
"=COUNTIF(Sheet1!R1C1:R" & n & "C1,CHAR(9008+{1;2;3;4;5})&CHAR(9024+{1,2,3,4,5}))"
.Value = .Value
.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Application.ScreenUpdating = True
End Sub
ほとんど遊び(^^;
参考まで

お礼

ありがとうございます。
只今悪戦苦闘で、一度やってみます。

回答No.1

fujillin

ご自分で作成するのであれば以下の手順で・・・

0）準備：ブックBをクリアしておく
1）ブックAの1行分の処理をブックAのA列の行数だけ繰り返す構文を作成
＜以下、1行分の処理（ｎ行目）＞
2）ブックAのn行目、A列の値を読む
3）2の文字を分解する（そのまま、行と列の指定に使用できる）
4）ブックBの3で得られた行列のセルの値を、+1する。
＜ここまでを繰り返し＞

お礼

早速のご回答ありがとうございます。
一度試作してみます。