合并不同的单元格内容到一个单元格内。

姚七柳

合并不同的单元格内容到一个单元格内。

沈默00

先截个图，..

cnmlgb9998

沈默00 发表于 2024-4-25 17:52
先截个图，..

PQ 可以解决

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf() '//2024.4.25
   
2.     arr = [a1:d1]
   
3.     ReDim brr(1 To 10)
   
4.     On Error Resume Next
   
5.     For j = 1 To 3
   
6.         b = Split(arr(1, j), Chr(10))
   
7.         m = 0
   
8.         For x = 0 To UBound(b) Step 2
   
9.             m = m + 2
   
10.             brr(m - 1) = b(x)
    
11.             If Len(b(x + 1)) > 6 Then
    
12.                 brr(m) = b(x + 1)
    
13.             End If
    
14.         Next
    
15.     Next
    
16.     [d1] = Join(brr, Chr(10))
    
17. End Sub
    

复制代码

沈默00

cnmlgb9998 发表于 2024-4-25 18:04
PQ 可以解决

是的，VBA一样可以解决，我想说的是表格规范很重要

cnmlgb9998

PQ。。。。。。。。。。。。。。。。。。

姚七柳

ykcbf1100 发表于 2024-4-25 18:16
参与一下。。。

非常感谢，如果再有多行，如何做。

姚七柳

ykcbf1100 发表于 2024-4-25 18:15
附件供参考。。。

我不懂编程语言，能不能给我说一下每一行的意思，谢谢

姚七柳

cnmlgb9998 发表于 2024-4-25 19:36
PQ。。。。。。。。。。。。。。。。。。

非常感谢，我不懂编程，看不懂。