答案1
如果可以使用 VBA:
按Alt
+ F11
,双击ThisWorkbook
并粘贴以下代码:
Sub values()
Dim c As Range
i = 1
For Each c In ActiveSheet.Range("A1:A100")
If IsNumeric(c) And c >= 1 And c <= 10000000 Then
Cells(i, 2).Value = c
i = i + 1
End If
Next c
End Sub
返回到包含您的数字的工作表,按Alt
+F8
并运行宏。
我没有测试过这个,所以先创建一个备份。