0

名前と性別を含む学生のデータベースがありますが、リストには異なる日付の学生の繰り返しが含まれています。リストにあるユニークな男子学生とユニークな女子学生の数はどのように数えますか?

サンプルデータベースは次のとおりです。

Name Date Gender
A   8/1/2013    M
B   8/2/2013    F
C   8/2/2013    F
A   9/2/2013    M
A   9/3/2013    M
C   8/31/2013   F
B   8/15/2013   F
D   10/5/2013   M

一意の男性の合計数は 2 で、一意の女性は 2 である必要があります。

sum(if(frequency)) 変動式をいじってみましたが、うまくいきませんでした。名前を使用してそれを結び付ける方法がわかりません。

VBAコードの使用も気にしません。

任意の提案をいただければ幸いです。

ありがとう！

4

2 に答える 2

0

最初に A から Z までの名前でテーブルを並べ替えてから、このマクロを実行します。範囲 A2:A9 をハードコーディングしていることに注意してください。

これは、最初にリストを並べ替えた場合にのみ機能します。すべての列と行を選択し、右クリックして名前列で A から Z まで並べ替えます。

Sub LoopRange()
  Dim rCell As Range
  Dim rRng As Range
  Set rRng = Sheet1.Range("A2:A9")
  Dim countM As Integer
  Dim countF As Integer
  Dim name As String

  For Each rCell In rRng.Cells
    If rCell.Value > name Then
        If rCell.Offset(0, 2).Value = "M" Then
            countM = countM + 1
        End If
        If rCell.Offset(0, 2).Value = "F" Then
            countF = countF + 1
        End If
    End If
    name = rCell.Value

  Next rCell

  MsgBox ("Males = " & countM & ", Females = " & countF)
  'Range("E3").Value = countF
  'Range("E4").Value = countM
End Sub
于 2013-09-12T17:48:09.917 に答える