記号入力の氏名を別表に番号にて記載

質問

表-1に記号入力された氏名と表-2の氏名がマッチしたB列に入力個数番号を記載したいのですがどなたかVBAコードが解る方よろしくお願いします。

回答No.2

tom04 · ベストアンサー

No.1です。

＞列にはほかにも記号があり
＞記号"○","△"のみカウントしたいのです
＞またC列以降も記号があり同じように列にカウントしていきたい

というコトですので・・・
行の配置は前回同様で、C列以降に記号のみの列があるという解釈です。
↓のコードに変更してみてください。

Private Sub CommandButton1_Click()
Dim i As Long, j As Long, cnt As Long
Application.ScreenUpdating = False
For j = 2 To ActiveSheet.UsedRange.Columns.Count
Cells(14, j).Resize(9, 1).ClearContents
cnt = 0
For i = 2 To 10
If Cells(i, j) = "○" Or Cells(i, j) = "△" Then
cnt = cnt + 1
Cells(i + 12, j) = cnt
End If
Next i
Next j
Application.ScreenUpdating = True
End Sub

今度はどうでしょうか？m(_ _)m

お礼

有難うございます。すごいです非常に助かりました。

回答No.1

tom04

こんばんは！

おそらく実データはお示しの画像のように単純ではないと思いますが、
B列が空白以外であれば数値を入力という解釈です。

画像では表1と表2の氏名の並びが一緒なので・・・

画像通りに配置だとしての一例です。
コマンドボタンをクリックでマクロ実行としています。

Private Sub CommandButton1_Click()
Dim i As Long, cnt As Long
Range("B14:B22").ClearContents
For i = 2 To 10
If Cells(i, 2) <> "" Then
cnt = cnt + 1
Cells(i + 12, 2) = cnt
End If
Next i
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

有難うございます。勉強になります。

補足

説明足らずで申し訳ありません。列にはほかにも記号があり
記号"○","△"のみカウントしたいのですがまたC列以降も記号があり同じように列にカウントしていきたいのですができるでしょうかよろしくお願いします。