冰天雪地紧急求援--数据的批量转置问题

youzhu00

由于工作的原因 需要批量处理 数据的转置问题  我这里有6000多道题哇！！

附件中的 负债业务 中的数据 要转换成 负债业务2中的数据。

冰天雪地紧急求援  在线等数据处理方法 万分紧急  感激涕零！

点灯人

这个有点难，难的是你每题所占的单元格不一样多。

zhangjimfu

1. Sub TransposeRow()
   
2.     Dim i%, sRow%
   
3.     i = 1
   
4.     sRow = 1
   
5.     While Cells(i, 1) <> ""
   
6.         Cells(sRow, 3) = Cells(i, 1)
   
7.         Range(Cells(sRow + 1, 3), Cells(sRow + 1, 6)) = WorksheetFunction.Transpose(Range(Cells(i + 1, 1), Cells(i + 4, 1)))
   
8.         Range(Cells(sRow + 2, 3), Cells(sRow + 2, 5)) = WorksheetFunction.Transpose(Range(Cells(i + 6, 1), Cells(i + 8, 1)))
   
9.         sRow = sRow + 4
   
10.         i = i + 10
    
11.     Wend
    
12. End Sub
    

复制代码

数据有规律可以用这个代码

freeme1983

请参考附件

zhangjimfu

1. 
   
2. Sub TransposeCol()
   
3.     Dim i%, sRow%, col%
   
4.     sRow = 1
   
5.     col = 3
   
6.     For i = 1 To 1911 Step 1
   
7.         If Cells(i, 1) <> "" Then
   
8.             Cells(sRow, col) = Cells(i, 1)
   
9.             col = col + 1
   
10.         Else
    
11.             sRow = sRow + 1
    
12.             col = 3
    
13.         End If
    
14.     Next i
    
15. End Sub
    

复制代码

执行代码后再调整格式

负债业务.rar (37.59 KB, 下载次数: 5)

2011-4-14 09:40 上传

点击文件名下载附件

119

还可以在每行间插入3个空行，
将第B列下移1个单元格，第C列下移2个单元格，第D列下移3个单元格，
选中A：D列，F5-》空格-》删除-》单元格左移。

这是基于你的所有数据有规律，即BCD列都是BCD3个选项，且所有数据间没有空行。

119

看差了，操作比原来要复杂些了。还是参考先VBA的吧。
需要先在正确答案所在行的前后各插入3行

cotine

汗 高手真多啊