优化原先代码，提升运行速度

zzkof

优化原先代码，提升运行速度

yes_cn

试一下

titi012

参与一下。。。。。

1. Sub tt()
   
2.     Dim Arr, i&, j&, T
   
3.     With ThisWorkbook
   
4.         Arr = .Sheets("表1").Range("B6:K105")
   
5.         For i = 1 To UBound(Arr)
   
6.             For j = 1 To UBound(Arr, 2)
   
7.                 If Arr(i, j) <> "" Then T = T & Arr(i, j) & "︱"
   
8.             Next j
   
9.             T = T & vbCrLf
   
10.         Next i
    
11.         .Sheets("表1").Range("F2") = T
    
12.     End With
    
13. End Sub

复制代码

zzkof

titi012 发表于 2024-7-5 12:00
参与一下。。。。。

谢谢参与，代码合并时过滤了空白单元格，要求是不过滤的

zzkof

yes_cn 发表于 2024-7-5 10:59
试一下

谢谢，代码能高速运行