[發問] +團購表格改成出貨表格(列顯示改成欄顯示)

smilelss

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

謝謝各位高手的幫忙。
感激不盡。 出貨資料轉換.rar (8.46 KB)

下載次數: 19

2014-5-14 23:36

GBKEE

回復 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

複製代碼