各位高手：
最近手上有幾千行資料（見索賠明細），每一行代表對一個供應商的索賠資訊（包括供應商名稱、原始金額、供應商名稱、索賠單編號、索賠產品、數量、發生月份等），
需要將索賠明細中每一行的資訊對應復制黏貼到標準表格對應的陰影區域，由于資料量太大。而且是重復的動作，不知道可以用VBA實作嗎？急用，萬分感謝
其中標準表格中陰影區域的資料來源如下：
GX2016090476 來源于 索賠明細中 索賠單編號
2016-9-2 來源于 索賠明細中 制單日期
黎明液壓有限公司 來源于 索賠明細中 供應商名稱
蔣經理 來源于 標準通訊錄中 黎明液壓有限公司對應的聯系人，如果標準通訊錄中未找到該供應商名稱，那么聯系人、電話、傳真均空白，其他作業繼續進行
3775893399 來源于 標準通訊錄中蔣經理對應電話
7732760 來源于 標準通訊錄中蔣經理對應傳真，如沒有就空著
過濾器 來源于 索賠明細中 索賠產品
13 來源于 索賠明細中 數量
2016年8月 來源于 索賠明細中 發生月份
230 來源于 索賠明細中 原始金額
269.1 來源于 索賠明細中 索賠單金額
希望將每一行轉化為索賠單之后，另存為excel表，保存在桌面上“索賠單”檔案夾，且表格的名字命名方式為：索賠單編號后六位數字+供應商名稱，本例子最后生成的
excel名稱應為“090476黎明液壓有限公司”。
uj5u.com熱心網友回復：
這個應該很簡單的。請參考：
Option Explicit
Sub OutputAll()
Dim i As Long, Sht As Worksheet
Set Sht = ThisWorkbook.Sheets(1)
For i = 2 To 2000 ''假設到2000行
Call MyOutPut(i, Sht)
Next
End Sub
Sub MyOutPut(ByVal bLine As Long, fSht As Worksheet)
''將某行資料導到特定表格中并保存
With Workbooks("表格") '''這個作業簿是特定表格
With .Worksheets(1)
.Range("c4") = fSht.Cells(bLine, "f")
'''....
End With
.SaveAs "d:\" & fSht.Cells(bLine, "c") & ".xls"
End With
End Sub
'
....
uj5u.com熱心網友回復：
你好，我初學VBA，看不太懂，可以加一下你的qq嗎uj5u.com熱心網友回復：
對于“標準化的、大量的重復操作”，用VBA解決是很容易、很適合的方案。
uj5u.com熱心網友回復：
1樓給的程式，看不懂，有沒有直接編號的，我想學習下，剛接觸這個，感覺很難，看都看不懂uj5u.com熱心網友回復：
用vba完全實作你的需求需要花費一點時間，最好的方案是別人給你個框架，自己學習后自己完成，如有問題再來問。
uj5u.com熱心網友回復：
樓主問題解決沒有→_→，如果急，我也可以給試試，我的郵箱[email protected]轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/69966.html
標籤：VBA