使用 vbscript 从字母数字中提取数字答案

【问题标题】：Extracting numericals from alphanumericals by using vb script使用 vbscript 从字母数字中提取数字
【发布时间】：2018-02-05 16:59:27
【问题描述】：

我有一列包含字母数字值，我想提取数字并使用 vb 脚本将它们复制到相邻列中。这是我到目前为止尝试过的代码，但它在 for 循环中给出了错误。

设置 objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

srcFilePath = "C:\Users\reddy.ku\Desktop\files\Issue.xls"

desFilePath = "C:\Users\reddy.ku\Desktop\files\Book1.xlsx"

设置 objWorkbook1 = objExcel.Workbooks.Open(srcFilePath)

设置 objWorkbook2 = objExcel.Workbooks.Open(desFilePath)

设置 objWorksheet = objWorkbook1.Worksheets(1)

objWorksheet.Activate

设置 objRange = objWorkSheet.Range("B1").EntireColumn

objRange.Copy

设置 objWorksheet2 = objWorkbook2.Worksheets(1)

objWorksheet2.Activate

设置 objRange = objWorksheet2.Range("C1")

objWorksheet2.Paste(objRange)

对于 i=1 到 objWorksheet2.UsedRange.Columns.Count

For j=1 to objWorksheet2.UsedRange.Rows.Count

    if (objWorksheet2.Cells(j,i).Value = Isnumeric) then

objWorksheet2.Range("B1").Paste

下一个

objWorkbook1.Save

objWorkbook1.关闭

objWorkbook2.Save

objWorkbook2.关闭

请提出任何替代方案或代码中的任何更改

提前感谢您的帮助

下面是列中的字符串。

HDI_144383

HDI_135254

HDI_146750

HDI_147009

DTSample_HDI_146982_TC_Crash

【问题讨论】：

首先，阅读How to Ask 并获取tour。然后决定它是 VBscript 还是 VB.NET - 不能两者兼而有之
您尝试过什么，您尝试过什么失败了？理想情况下，您应该提供一个Minimal, Complete, and Verifiable Example 您尝试过的内容，并包含有关它如何失败的具体信息，以及错误消息和/或错误输出。 SO 不是代码编写服务；最好的问题是那些提供有用信息的问题，以便回答的人可以指导您设计自己的正确答案。见How to Ask a Good Question。

标签： excel vbscript scripting

【解决方案1】：

在您的电子表格中，使用以下代码创建一个模块：

Function MidCode(s As String) As String
i = 1
While Not ((Mid(s, i, 1) >= "0") And (Mid(s, i, 1) <= "9")) And (i <= Len(s))
    i = i + 1
Wend
StartPos = i
While Not ((Mid(s, i, 1) < "0") Or (Mid(s, i, 1) > "9")) And (i <= Len(s))
    i = i + 1
Wend
EndPos = i
MidCode = Mid(s, StartPos, EndPos - StartPos)
End Function

然后，在要提取数字的列中输入：

=MidCode(A1)

然后把它抄下来。如果您的原始数据从不同的位置开始，您将需要更改 A1 部分以匹配。

【讨论】：

请用vb脚本编写。