Question

如何用VBA提取一个单元格内部分内容

比如我要提取的内容在单元格A1里面，值为"ID 2344", 我想把它的ID值复制到A2里面去，这样A2的内容是2344，因为有很多列，我想写个macro，有什么简单的VBA语言可以做到？

Answer 1

如果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

Answer 2

有各种办法，例如可以去掉 "ID "：
Sub try()
Sheet1.Cells(1, 2) = Replace(Sheet1.Cells(1, 1), "ID ", "")
End Sub

Answer 3

举例如下，假定该单元格是A1，使用Split把A1的内容（字符串），分割成三个元素的数组
Sub abc()
S = Range("A1").Text
v = Split(S, Chr(10))
End Sub
《共同纲领》教育条款是1949年9月通过的《中国人民政治协商会议共同纲领》《第五章文化教育政策》第41条：“中华人民共和国的文化教育为新民主主义的，即民族的、科学的、大众的文化教育。
人民政府的文化教育工作，应以提高人民文化水平，培养国家建设人才，肃清封建的、买办的、法西斯主义的思想，发展为人民服务的思想为主要任务。”第 42 条：“提倡爱祖国、爱人民、爱劳动、爱科学、爱护公共财物为中华人民共和国全体国民的公德。”
第 46 条：“中华人民共和国的教育方法为理论与实际一致。人民政府应有计划有步骤地改革旧的教育制度、教育内容和教学法。”第 47 条：“有计划有步骤地实行普及教育，加强中等教育和高等教育。
注意技术教育，加强劳动者的业余教育和在职干部教育，给青年知识分子和旧知识分子以革命的政治教育，以应革命工作和国家建设工作的广泛需要。”第 56 条：“人民政府应帮助各少数民族的人民大众发展其政治、经济、文化、教育的建设事业。

Answer 4

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