如何快速将计数图表数据输入 Excel 中，使每个计数标记占一行？

Question

我收集了多个同一部件的测量长度的计数图表数据。

例如，56.11mm 有 92 个计数标记，56.12mm 有 75 个计数标记，56.13mm 有 63 个计数标记，等等。

为了分析数据，我希望在 Excel 中为每个测量值设置一行。因此，对于上述示例，我将有 92 行 56.11，75 行 56.12 等。

我怎样才能以我需要的格式将这些数据快速输入到 Excel 中？

提前致谢。

Answer 1

名称框可能是您最好的选择 - 它是工作表左上角的框，位于列标题和功能区之间，显示当前活动的单元格地址：

单击那里并将“A1”替换为“A1:A92”，然后按回车键。这将选择适当的行。然后，无需单击其他任何地方，输入所需的测量值并按 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 列的第一个空闲行并根据需要重复多次。