全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 Excel
2033 9
2015-03-19
如果想把数据从左开始向右找,找到“支”这个字,就把“支”字之前的数据抽出单列一列,怎么办?



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

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


二维码

扫码加我 拉你入群

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

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

全部回复
2015-3-19 23:38:18
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:16
要把哪个字改成“支”这个字吗?多谢!
附件列表
03202.PNG

原图尺寸 6.52 KB

03202.PNG

03201.PNG

原图尺寸 13.66 KB

03201.PNG

二维码

扫码加我 拉你入群

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

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

2015-3-20 21:46:59
江夏雁 发表于 2015-3-20 09:52
要把哪个字改成“支”这个字吗?多谢!
Correct
二维码

扫码加我 拉你入群

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

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

2015-3-21 07:12:21
我的天啊
二维码

扫码加我 拉你入群

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

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

2015-3-24 21:54:39
=LOOKUP(9^9,--RIGHT(LEFT(A1,FIND("支",A1)-1),ROW($1:$99)))
二维码

扫码加我 拉你入群

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

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

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群