標題: [發問] +團購表格改成出貨表格(列顯示改成欄顯示) [打印本頁]

---

作者: smilelss    時間: 2014-5-14 23:37     標題: +團購表格改成出貨表格(列顯示改成欄顯示)

本帖最後由 GBKEE 於 2014-6-2 13:56 編輯

由於小妹公司常常在搞團購(抒發工作壓力?)
常常同事們為了分貨傷透腦筋，也常常分錯貨。
小妹到處去查相關的VBA，就是找不到合用的，只好上來跟各位高手求救。
就是原本在google文件中的表單功能，大家填好之後，想要轉換成出貨的資料(這樣的資料未來也比較好做成合併列印資料)。
之前有去找專門幫人寫VBA的公司或個人工作室 都說這種小東西不做..要我去網路找就可以了 可是我找很久都找不到><

謝謝各位高手的幫忙。
感激不盡。[attach]18288[/attach]

---

作者: GBKEE    時間: 2014-6-2 09:12

回復 1# smilelss
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, AR(), Ay(), a As Integer, b As Integer, c As Integer
   
4.     Set Rng = Sheets("原始資料").Range("A1").CurrentRegion
   
5.     With Rng
   
6.         AR = .Rows("2:" & .Rows.Count).Value
   
7.     End With
   
8.     ReDim Ay(1 To UBound(AR), 1 To UBound(AR, 2))
   
9.     For a = 1 To UBound(AR)
   
10.         Ay(a, 1) = AR(a, 1)
    
11.         c = 1
    
12.         For b = 2 To UBound(AR, 2)
    
13.             If AR(a, b) <> "" Then
    
14.                 c = c + 1
    
15.                 Ay(a, c) = Rng(b) & "*" & AR(a, b)
    
16.             End If
    
17.         Next
    
18.     Next
    
19.     With Sheets("結果資料")
    
20.         .Cells.Clear
    
21.         .[a1].Resize(UBound(AR), UBound(AR, 2)) = Ay
    
22.     End With
    
23. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)