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

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

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

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

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

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

提前致谢。

答案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 列的第一个空闲行并根据需要重复多次。

相关内容