根据数据资料自动套用表头

bet00738

问题请教.zip (10.07 KB, 下载次数: 10)

2017-5-27 11:20 上传

点击文件名下载附件

详细问题在附件里。请教高手帮忙解决。十分感谢！

france723

你表格设计的不合理，已经改正，详见附件。

0126

france723 发表于 2017-5-27 15:06
你表格设计的不合理，已经改正，详见附件。

你好请问这个怎么运行没有效果，是我运行错误吗，

france723

0126 发表于 2017-5-27 16:11
你好请问这个怎么运行没有效果，是我运行错误吗，

这样啊，运行第一句加一句清除代码就行。

1. Sub aaa()
   
2. Dim y, ar
   
3. Range("A2:h65536").ClearContents
   
4. y = Range("l65536").End(3).Row
   
5. ar = Range("l2:y" & y)
   
6. n = 2
   
7. For i = 1 To UBound(ar)
   
8.     If ar(i, 1) <> "产品编号" And ar(i, 1) <> "" Then
   
9.         Cells(n, 1) = ar(i, 1)
   
10.         Cells(n, 2) = ar(i, 2)
    
11.         Cells(n, 3) = ar(i, 4)
    
12.         Cells(n, 4) = ar(i, 6)
    
13.         Cells(n, 5) = ar(i, 8)
    
14.         Cells(n, 6) = ar(i, 10)
    
15.         Cells(n, 7) = ar(i, 12)
    
16.         Cells(n, 8) = ar(i, 14)
    
17.         n = n + 1
    
18.     End If
    
19. Next i
    
20. End Sub

复制代码

0126

france723 发表于 2017-5-27 16:14
这样啊，运行第一句加一句清除代码就行。

谢谢了，我看了下那个楼主的问题他意思可能是拆分数据不是合并数据