如何用正则提取特定字符串前面的内容

鑫仔2020

如何提取sheet1中A列单元格中：之前的内容，然后写在B列单元格中。
比如A1单元格中的内容，提取后是   贵州茅台  写在B1.   A2提取的内容写在B2。

鑫仔2020

因为是新入门的选手，希望高手门尽量在关键行的代码上加上详细注释

shenjianrong163

用Split即可。

shenjianrong163

1. Sub test()
   
2.     Dim i&, arr, brr()
   
3.     With Sheets("Sheet1")
   
4.         .Range("B:B").ClearContents '清除B列数据
   
5.         arr = .Range("A1").CurrentRegion '将A1的连续数据单元格内容赋值给数组arr
   
6.         ReDim brr(1 To UBound(arr), 1 To 1) '重新定义brr为UBound(arr)行1列的二维数组
   
7.         For i = 1 To UBound(arr)
   
8.             arr(i, 1) = Replace(arr(i, 1), ":", "：") '数据中存在半角的冒号，先将其替换成全角冒号
   
9.             brr(i, 1) = Split(arr(i, 1), "：")(0) '以符号“：”分割字符串，取分割出的第一个字符串（此时分割出的数为数组形式，下标从0开始）
   
10.         Next
    
11.         .[B1].Resize(UBound(brr), 1) = brr 'UBound(brr)取得数组的行数，将数组brr的数据存放在以[B1]为左上角的UBound(brr)行、1列的区域。
    
12.     End With
    
13. End Sub

复制代码

shenjianrong163

请参考附件：


各行业龙头企业.rar (21.24 KB, 下载次数: 73)

2020-7-5 09:53 上传

点击文件名下载附件

1234xu

如果不是一定要用vba的话可以使用公式：=IFERROR(LEFT(A1,FIND("：",A1)-1),LEFT(A1,FIND(":",A1)-1))

鑫仔2020

shenjianrong163 发表于 2020-7-5 09:53
请参考附件：

谢谢，很好用  写的很详细

duquancai

1. # -*- coding: utf-8 -*-#设置python.py文件编码为utf-8
   
2. # version: Python 3.7.0#python语言版本3.7.0
   
3. import pandas as pd#导入第三方库pandas
   
4. 
   
5. df=pd.read_excel('./各行业龙头企业.xlsx',header=None).dropna()#读取excel数据
   
6. df[1]=df[0].str.extract('^([^:：]+)')#正则表达式^([^:：]+)提取赋值给一列
   
7. df.to_excel('./提取结果.xlsx',index=False,header=False)#数据写入excel并保存文件

复制代码

鑫仔2020

duquancai 发表于 2020-7-5 10:51

你这个是python编的吧

duquancai

鑫仔2020 发表于 2020-7-5 11:55
你这个是python编的吧

是的，每一行代码写明了注释了。