|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
参与一下。。。
- Sub ykcbf() '//2024.8.19
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- r = Cells(Rows.Count, 1).End(3).Row
- arr = [a1].Resize(r, 5)
- p = ThisWorkbook.Path & ""
- ReDim brr(1 To 1000, 1 To 1)
- For i = 1 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- m = m + 1
- brr(m, 1) = arr(i, j)
- Next
- Next
- Set wb = Workbooks.Add
- wb.Sheets(1).[a1].Resize(m, 1) = brr
- wb.SaveAs Filename:=p & "test.txt", FileFormat:=xlText
- wb.Close
- Application.ScreenUpdating = True
- MsgBox "OK!"
- End Sub
复制代码
|
|