有大佬能帮我下吗

wz6812786

我想把下面的也全部合并成一样 然后做成C那一列的样子 下面附上文件 大概想要的状态就是C1 这一个大格子

心正意诚身修

你都知道CHAR10了。你就一个一个的连就好了。。用INDEX或者OFFSET。一下。

心正意诚身修

你要合并四列吗。

心正意诚身修

如果你要合并。那么。你连公式就不要。直接 CHAR。下拉。手动选择区域 就好了。如果不合并的话。可能还需要写一下公式。

Excel学徒123

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.     Dim arrSrc, arrRst()
   
5.     Dim irow%, iCnt%, iNCnt%, iCol%, Ends%
   
6.     arrSrc = Range("A1").CurrentRegion.Value
   
7.     On Error Resume Next
   
8.     For irow = 1 To UBound(arrSrc) Step 4
   
9.         iNCnt = iNCnt + 1
   
10.         ReDim Preserve arrRst(1 To iNCnt)
    
11.         For iCol = 1 To 2
    
12.             If Err.Number = 0 Then
    
13.                 Ends = irow + 3
    
14.             Else
    
15.                 Ends = UBound(arrSrc)
    
16.             End If
    
17.             For iCnt = irow To Ends
    
18.                 arrRst(iNCnt) = arrRst(iNCnt) & arrSrc(iCnt, iCol) & Chr(10)
    
19.             Next
    
20.         Next
    
21.     Next
    
22.     Range("c1").Resize(UBound(arrRst), 1) = Application.Transpose(arrRst)
    
23. End Sub
    

复制代码