[已解决]请教高手

bukeei

原表如下：


用什么方法可以快速变成下表：

最佳答案

月排行榜 / 总排行榜

jx1680000

2012-2-22 14:51

跳转到最佳答案楼层

sliang28

请上传你的附件！

bukeei

aagyjuigyuigyjuigh

jx1680000

zjcat35

1. Sub a()
   
2.     Dim i As Integer, j As Integer, k As Integer
   
3.         For i = [a65536].End(3).Row To 2 Step -1
   
4.             j = Cells(i, 256).End(xlToLeft).Column / 2 - 2
   
5.                 If j > 0 Then
   
6.                     Rows(i + 1).Resize(j).Insert
   
7.                     For k = 1 To j
   
8.                         Cells(i, 4 + 2 * k - 1).Resize(1, 2).Copy Range("c1").End(xlDown).Offset(1, 0).Resize(1, 2)
   
9.                     Next k
   
10.                 End If
    
11.         Next i
    
12.      Range("e:z").Delete
    
13. End Sub

复制代码

bukeei

多谢，多谢。。。。高手啊，高手啊。。。。。

hately

按 ALL+F11,插入——模块——复制以下代码到窗口，最后按F5运行。
Sub 嘻嘻哈哈()
Dim x As Byte
For x = 2 To UsedRange.Rows.Count * 2
If Not Range("e" & x) = "" Then
Rows(x + 1).Insert
Range("e" & x & ":f" & x).Cut Range("c" & x + 1 & ":d" & x + 1)
End If
If Not Range("g" & x) = "" Then
Rows(x + 2).Insert
Range("g" & x & ":h" & x).Cut Range("c" & x + 2 & ":d" & x + 2)
End If
Next
End Sub

jx1680000

bukeei 发表于 2012-2-22 14:30
aagyjuigyuigyjuigh

bukeei

历害。。。还可以这样复制数据。。。

bukeei

请教版主，如果数据后面有个总计值，最后归类数据后，总计值如何保留下来？