[已解决]字段排列问题

松儿

Shelvee 发表于 2013-8-20 06:48
附件哪里不对？

Sheet5中的结果是怎么做的，怎么没有字段列表。

殿堂之上

你看下sheet3,是这样不

Shelvee

松儿 发表于 2013-8-20 18:07
Sheet5中的结果是怎么做的，怎么没有字段列表。

把数据透视表的结果粘贴到sheet5，粘贴位置，用VBA把1转换为书名

Shelvee

加上之前的代码就好了

Shelvee

比之前那段简单

Shelvee

1. Sub t2()
   
2. Dim i, j As Integer
   
3. For i = 4 To 33
   
4. For j = 3 To 8
   
5.   If Cells(i, j).Value = 1 Then
   
6.    Cells(i, j).Value = Cells(i, 2).Value
   
7.   End If
   
8. Next j
   
9. Next i
   
10. End Sub
    

复制代码

松儿

Shelvee 发表于 2013-8-21 00:45

辛苦您了，谢谢！

tete20130509

学习