请大神求助，谢谢253 253 253

muq125

现表格标题栏中有多项内容分为最小值，最大值，步进值，现在想把这3列合并成1列，按照“最小值—最大值/步进值”这样的方式，标题栏只保留项目内容。表格太多，手动的话最好结果高位截瘫。只能像悟空一样跪拜，大声“师傅救我”。给出样表，sheet1是原表，sheet2是修改后的表格，这个是内容最少的一个表，我做了3分钟求VBA解决方法，谢谢

袁勇

1. Private Sub CommandButton1_Click()
   
2.     Dim arr, brr(), i&, j&, k&
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2) / 3)
   
5.     Sheet2.[a1].CurrentRegion.Offset(1).ClearContents
   
6. 
   
7.     For i = 2 To UBound(arr)
   
8.     For j = 1 To UBound(arr, 2) Step 3
   
9.         k = (j + 2) / 3
   
10.             If arr(i, j) = "-" Then
    
11.             brr(i - 1, k) = "-"
    
12.         Else
    
13.             brr(i - 1, k) = arr(i, j) & "-" & arr(i, j + 1) & "/" & arr(i, j + 2)
    
14.         End If
    
15.     Next
    
16.     Next
    
17. 
    
18.     Sheet2.[a2].Resize(i - 1, k) = brr
    
19.     Erase arr, brr
    
20. End Sub

复制代码

ykcbf1100

参与一下。

sdytsxd991122

参与一下

ZHLK

Sub demo()
m = 2
n = 1
    Sheet2.Rows("2:1000").Delete Shift:=xlUp
    For i = 2 To 21
        For j = 1 To 30 Step 3
            If Cells(i, j) <> "-" Then
                Sheet2.Cells(m, n) = Cells(i, j) & "-" & Cells(i, j + 1) & "/" & Cells(i, j + 2)
            Else
                Sheet2.Cells(m, n) = "-"
            End If
                n = n + 1
        Next j
        m = m + 1
        n = 1
    Next i
End Sub

fanyoulin

函数做一下就好了；

lcluck2002

很好的VBA练习题！

tanglf188

lcluck2002

样表0614.。。。。。。。

蓝桥玄霜

样表的例子：