求教个简单的vba代码

我会了，谢谢，删除吧

其实根本就不需要VBA，用操作技巧就可以了

1. Sub 按钮1_Click()
   
2.     Dim arr, brr, i&, j&, cot&, temp$
   
3.     On Error Resume Next
   
4.    
   
5.     '选择数据区域，包含列标题
   
6.     arr = Application.Intersect(ActiveSheet.UsedRange, Application.InputBox("选择数据区域，包含列标题", , , , , , , 8))
   
7.    
   
8.     '选择的列数不为2时跳过
   
9.     If UBound(arr, 2) <> 2 Then Exit Sub
   
10.    
    
11.     cot = UBound(arr)
    
12.     ReDim brr(1 To cot, 1 To 3)
    
13. 
    
14.     For i = UBound(arr) To 2 Step -1   '遍历数组
    
15.         If arr(i, 1) = "name" Then     '等于"name"时候，得到每三列的名称，记入temp
    
16.             temp = (arr(i, 2))
    
17.         Else
    
18.             cot = cot - 1
    
19.             brr(cot, 1) = arr(i, 1)   '不等于"name"时，记入数组brr
    
20.             brr(cot, 2) = arr(i, 2)
    
21.             brr(cot, 3) = temp
    
22.         End If
    
23.     Next
    
24.    
    
25.     brr(1, 1) = arr(1, 1)
    
26.     brr(1, 2) = arr(1, 2)
    
27.     brr(1, 3) = "z"          '标题
    
28.     '在E1单元格，输出数组brr
    
29.     Range("E1").Resize(UBound(arr), 3) = brr
    
30.     '定位空值，并删除
    
31.     Range("E1").Resize(UBound(arr), 3).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    
32. End Sub

复制代码

感觉应该不难，只是鄙人目前刚接触，求高手相助

芐雨 发表于 2014-10-27 10:23
其实根本就不需要VBA，用操作技巧就可以了

我现在想把最后一列的 12 34 56 行进行单元格合并   并且只保留一个值  比如 dstd_adjclpr1flag0          dcvflag0
mean        0.0021**        0.0057***        0.0095***        0.0075***        dstd_adjclpr1flag0
t        1.2189        2.7529        4.4319        5.2551        dstd_adjclpr1flag0
mean        0.0021**        0.0051***        0.0111***        0.0091***        dcvflag0
t        1.3923        2.5336        4.369        5.3907        dcvflag0
mean        0.0086***        0.0082***        0.0051***        -0.0035*        dnetppedivaflag0
t        4.0203        3.8827        2.6899        -3.7169        dnetppedivaflag0

小鳄鱼a 发表于 2014-10-27 19:33
我现在想把最后一列的 12 34 56 行进行单元格合并   并且只保留一个值  比如 dstd_adjclpr1flag0          dcvfl ...

你把内容都删除了，没办法测试
合并单元格：Range.Merge
录个宏就行
如果所有值都保留，用&连接在一起再合并就好