Как добавить 2 метки в график с помощью VBA Excel

Question

Я создал диаграмму, используя vba excel, а затем случайно заполнил график, который показывает пользователя и количество, которое я предпочитаю. Но глупость я забыл сохранить, из-за тестирования. Теперь я не могу понять, как установить его снова. пожалуйста помогите, спасибо

Пример данных

Operator  Counts    Team
OPSHAF     123      A
OPSAJC     1245     B
OPSZAL     23       A
OPSJGY     162      C
OPSOSM     54       D

Sub CreateChart()

Dim rEmailRng As Range
Dim oEmailCht As Object
Dim cEmailCht As Chart

Dim coEmailCht As ChartObject
Dim iEmailRow As Integer
Dim sEmailSeries As Series
Dim scEmailSerCol As SeriesCollection

On Error Resume Next

    Set wb = ThisWorkbook
    Set wbsh2 = wb.Worksheets("Email")

    Set coEmailCht = wbsh2.ChartObjects.Add(Range("E5").Left, Range("E5").Top, 500, 300)
    coEmailCht = "Email Requests Processed" '& year

    Set cEmailCht = coEmailCht.Chart

    With cEmailCht
        .HasLegend = False
        .HasTitle = True
        .Axes(xlValue).MinimumScale = 50
        .Axes(xlValue).MaximumScale = 1500
        .ChartTitle.Text = "Email Processed by Operator"

        Set scEmailSerCol = .SeriesCollection
        Set sEmailSeries = scEmailSerCol.NewSeries

        With sEmailSeries
            .Name = Range("A1").Offset(0, 1).Value
            .XValues = Range(Range("A1").Offset(1, 0), Range("A1").End(xlDown))
            .Values = Range(Range("A1").Offset(1, 1), Range("A1").Offset(1, 1).End(xlDown))
            .ChartType = xl3DColumnClustered
        End With

    End With

Answer 1

Добро пожаловать в ТАК.Если ваша цель состоит в том, чтобы метка оси содержала Count вместе с оператором, просто попробуйте

With sEmailSeries
        '
      .XValues = Range("A2:B" & Range("B2").End(xlDown).Row)

, если вы также хотите указать название команды, тогда

.XValues = Range("A2:C" & Range("C2").End(xlDown).Row)