工作表指定单元格值另存到另一工作簿

tcmsod

需求:split-save.xls表中的input_po列，除去表头的单元格值存储在input_po.xls， input_so列，除去表头的单元格值存储在input_so.xls。详见附件示例文件。试过分解任务后，手工录制宏，但总报错，请EH大侠帮忙解决下，谢谢。

liulang0808

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set sh = Sheets(1)
   
5.     Sheets.Add after:=sh
   
6.     For j = 1 To sh.Cells(1, Columns.Count).End(xlToLeft).Column
   
7.         If Len(sh.Cells(1, j)) > 0 Then
   
8.             Sheets(2).UsedRange.Clear
   
9.             Application.Intersect(sh.Columns(j), sh.UsedRange).Offset(1).Copy Sheets(2).[a1]
   
10.             Sheets(2).Copy
    
11.             With ActiveWorkbook
    
12.                 .SaveAs ThisWorkbook.Path & "" & sh.Cells(1, j) & ".xls"
    
13.                 .Close False
    
14.             End With
    
15.         End If
    
16.     Next j
    
17.     Sheets(2).Delete
    
18.     Application.DisplayAlerts = True
    
19.     Application.ScreenUpdating = True
    
20. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。

tcmsod

liulang0808 发表于 2019-6-10 20:52
附件内容供参考。。。。

测试成功，谢谢