抽出某一字前面的数字

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如果想把数据从左开始向右找，找到“支”这个字，就把“支”字之前的数据抽出单列一列，怎么办？



比如

雪茄烟|烟草制|高希霸牌|1X25支 5盒

想抽出“25”这个数字
多谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：怎么办 雪茄烟 雪茄烟

Using the following VBA code will fulfill your requirement.

Sub InsertCol()

Dim iRowCount As Integer
Dim iColCount As Integer
Dim i As Integer
Dim j As Integer
Dim iPosStr As Integer
Dim iPosTimes As Integer
Dim NumStr As String
Dim myRng As Range


iRowCount = ThisWorkbook.Sheets("Sheet1").UsedRange.Rows.Count
iColCount = ThisWorkbook.Sheets("Sheet1").UsedRange.Columns.Count

For i = 1 To iRowCount
    For j = 1 To iColCount
        iPosStr = InStr(ThisWorkbook.Sheets("Sheet1").Cells(i, j), "Ö§")
        
        If iPosStr > 1 Then
            iPosTimes = InStr(ThisWorkbook.Sheets("Sheet1").Cells(i, j), "X")
            NumStr = Mid(ThisWorkbook.Sheets("Sheet1").Cells(i, j), iPosTimes + 1, iPosStr - iPosTimes - 1)
            'MsgBox NumStr
            Set myRng = ThisWorkbook.Sheets("sheet1").Range(Cells(i, j), Cells(i, iColCount))
            myRng.Insert Shift:=xlToRight
            ThisWorkbook.Sheets("Sheet1").Cells(i, j) = NumStr
        End If
    Next j
Next i

End Sub

要把哪个字改成“支”这个字吗？多谢！

江夏雁 发表于 2015-3-20 09:52
要把哪个字改成“支”这个字吗？多谢！

Correct

我的天啊

=LOOKUP(9^9,--RIGHT(LEFT(A1,FIND("支",A1)-1),ROW($1:$99)))

在“支”处分裂就可以了

假设文本在A1单元格
可以用  FIND("支",A1,1) 和 FIND("X",A1,1)找到支和X的位置
再用MID函数提取就可以了

1. Sub ccc()
   
2. Set re = CreateObject("VBScript.RegExp")
   
3. re.Pattern = "[^\d]\d+(?=支)"
   
4. For Each c In [a1:a100] '假设数据在A1:A100单元格内
   
5.     If re.Test(c) Then c.Offset(, 1) = Mid(re.Execute(c)(0), 2)
   
6. Next
   
7. End Sub

复制代码

>>>>>>>>>>>>>>>>>>>>

参见附件 SHEET 3