2023年3月24日
vba-ReDim动态给数组扩容
摘要： Sub test() Dim arr()Dim i, j As Integerj = Range("A65536").End(xlUp).Row - 1ReDim arr(1 To j)For i = 1 To jarr(i) = Range("D"&i+1)+Range("E"&i+1)+Rang 阅读全文
posted @ 2023-03-24 17:17 vba是最好的语言 阅读(391) 评论(0) 推荐(0)
vba-操作word替换指定字符
摘要： Sub test() '先在VBA的"工具(T)"->"引用(R)"中添加引用：Microsoft Word 14.0 Object Library Dim objApp As New Word.Application, Path, FileNamePath, i, j, arr, brr, str 阅读全文
posted @ 2023-03-24 10:42 vba是最好的语言 阅读(1109) 评论(0) 推荐(0)