通过VBA代码，将表1的数据 转换成表2的数据。

2217918

各位老师：你们好，通过VBA代码，将表1的数据转换成表2的数据。谢谢！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   With Worksheets("表1")
   
4.     .UsedRange.Copy Worksheets("表2").Range("a1")
   
5.   End With
   
6.   With Worksheets("表2")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     For i = r To 2 Step -1
   
9.       If Left(.Cells(i, 2), 2) = "合计" Then
   
10.         .Rows(i).Delete
    
11.       End If
    
12.     Next
    
13.     .Range("b:l,o:o,q:s").Delete
    
14.     .Columns("C:C").Cut
    
15.     .Columns("E:E").Insert Shift:=xlToRight
    
16.     .Columns("A:A").Insert
    
17.     .Range("a1") = "发票序号"
    
18.     r = .Cells(.Rows.Count, 3).End(xlUp).Row
    
19.     m = 0
    
20.     For i = 2 To r - 1
    
21.       If .Cells(i, 2) <> "" Then
    
22.         m = m + 1
    
23.         .Cells(i, 1) = m
    
24.       End If
    
25.       If .Cells(i + 1, 2) = "" Then
    
26.         .Cells(i, 2).Resize(2, 1).Merge
    
27.         .Cells(i, 1).Resize(2, 1).Merge
    
28.       End If
    
29.     Next
    
30.     .Columns("a:f").AutoFit
    
31.     With .UsedRange
    
32.       .HorizontalAlignment = xlCenter
    
33.       .VerticalAlignment = xlCenter
    
34.     End With
    
35.   End With
    
36. End Sub
    

复制代码

chxw68

详见附件。

2217918

chxw68 发表于 2017-8-15 16:36
详见附件。

谢谢，非常感谢！

2217918

chxw68 发表于 2017-8-15 16:36
详见附件。

老师，你好，在帮我修改下！发票序号，不要合并单元格！

chxw68

详见附件。

2217918

chxw68 发表于 2017-8-15 18:15
详见附件。

谢谢老师！再次感谢。

2217918

chxw68 发表于 2017-8-15 18:15
详见附件。

老师，你好，在帮我修改下！按照发票结算单号，合计每张发票金额，谢谢！

chxw68

楼主还有什么要求？最好一次性说完，不要挤牙膏了。

jiminyanyan

事不过三，应挤完了………………。