我收集了多个同一部件的测量长度的计数图表数据。
例如,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 列的第一个空闲行并根据需要重复多次。