摘要:
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 阅读全文
摘要:
Sub test() '先在VBA的"工具(T)"->"引用(R)"中添加引用:Microsoft Word 14.0 Object Library Dim objApp As New Word.Application, Path, FileNamePath, i, j, arr, brr, str 阅读全文