EXCEL数据整理,要求如下:
发布网友
发布时间：2022-04-23 19:35
共2个回答
热心网友
时间：2023-09-19 09:00
你要提取的数据有个特点，就是该数据中间有个冒号“：”可以通过如下思路来实现：
1、查找带“：”，B列返回冒号左边的的文本
2、C列返回冒号右边的文本
3、查不到冒号，返回为空
第一步，定位“：”位置，FIND(":",A4)
第二步，返回该位置及其左所有文本：=LEFT(A4,FIND(":",A4))
第三步：确定冒号从右边数的位置，=字符长度-从左数的位置=LEN(A4)-FIND(":",A4)
第四步：返回该位置右侧所有文本：=RIGHT(A4,LEN(A4)-FIND(":",A4))
结果及截图如下：
追问感谢回答，不过这个A4这样的一个个的输入和自己粘贴复制好像也没啥区别。。。，不可以逐行、逐列，或者干脆全选这样遍历的查询返回吗？
热心网友
时间：2023-09-19 09:01
'按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式
Sub 提取数据()
For I = 1 To [a65536].End(xlUp).Row
If InStr(Cells(I, 1), "单位工程名称") Or InStr(Cells(I, 1), "报告日期") Or InStr(Cells(I, 1), "试验报告编号") Then
n = n + 1
Cells(n, 5) = Cells(I, 1)
End If
Next
End Sub
