如何用VBA提取一个单元格内部分内容
发布网友
共4个回答
热心网友
如果ID值都是4位数的话，那么用以下代码就可以了：
Sub www()Dim y%
For y = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
Cells(2, y) = Right(Cells(1, y), 4)
Next y
End Sub
热心网友
有各种办法，例如可以去掉 "ID "：
Sub try()
Sheet1.Cells(1, 2) = Replace(Sheet1.Cells(1, 1), "ID ", "")
End Sub
热心网友
举例如下，假定该单元格是A1，使用Split把A1的内容（字符串），分割成三个元素的数组
Sub abc()
S = Range("A1").Text
v = Split(S, Chr(10))
End Sub
《共同纲领》教育条款是1949年9月通过的《中国人民*协商会议共同纲领》《第五章文化教育*》第41条：“中华人民共和国的文化教育为新民主主义的，即民族的、科学的、大众的文化教育。
*的文化教育工作，应以提高人民文化水平，培养国家建设人才，肃清封建的、买办的、法西斯主义的思想，发展为人民服务的思想为主要任务。”第 42 条：“提倡爱祖国、爱人民、爱劳动、爱科学、爱护公共财物为中华人民共和国全体国民的公德。”
第 46 条：“中华人民共和国的教育方法为理论与实际一致。*应有计划有步骤地改革旧的教育制度、教育内容和教学法。”第 47 条：“有计划有步骤地实行普及教育，加强中等教育和高等教育。
注意技术教育，加强劳动者的业余教育和在职干部教育，给青年知识分子和旧知识分子以*的*教育，以应*工作和国家建设工作的广泛需要。”第 56 条：“*应帮助各少数民族的人民大众发展其*、经济、文化、教育的建设事业。
热心网友
Sub DELID()
For Rw = 1 To Range("a1").End(xlDown).Row
Cells(Rw, 2).Value = LTrim(RTrim(Replace(UCase(Cells(Rw, 1).Value), "ID", "")))
Next
End Sub
