Как быстро ввести данные счетной диаграммы в Excel, где каждая счетная метка становится одной строкой?

Question

Я собрал данные графика для измеренной длины ряда одной и той же детали.

Например, у меня 92 метки для 56,11 мм, 75 меток для 56,12 мм, 63 метки для 56,13 мм и так далее.

Для того, чтобы проанализировать данные, я хотел бы иметь ряд в Excel для каждого измерения. Так что для приведенного выше примера у меня будет 92 строки с 56,11, 75 строк с 56,12 и т.д.

Как я могу быстро ввести эти данные в Excel в нужном мне формате?

Заранее спасибо.

Answer 1

Поле имени может быть вашей лучшей ставкой - это поле в верхнем левом углу вашего листа между заголовками столбцов и лентой, на котором показан текущий активный адрес ячейки:

Нажмите там и замените "A1" на «A1:A92» и нажмите Enter. Это выберет соответствующие строки. Затем, не щелкая где-либо еще, введите необходимое измерение и нажмите Ctrl+Enter. Значение будет размещено во всех выделенных ячейках. Вы можете повторить это столько раз, сколько вам нужно.

Следующим вариантом будет этот макрос:

Sub InsertCount()
    Dim varInsert As Variant
    Dim lngCount As Long
    Dim rngInsert As Range

    varInsert = InputBox("What value do you want to repeat?")
    lngCount = InputBox("How many times?")

    If Len(varInsert) > 0 And _
        lngCount > 0 Then
        If Range("A" & Rows.Count).End(xlUp).Row = 1 Then
            Set rngInsert = Range("A1", "A" & lngCount)
        Else
            Set rngInsert = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(lngCount, 1)
        End If
        rngInsert.Value = varInsert
    End If
End Sub

Он спросит вас, какое значение вы хотите вставить, затем сколько раз его вставить, затем поместите это значение в первую свободную строку столбца A и повторите его столько раз, сколько необходимо.