標題: [發問] 按指定次數重複數據 [打印本頁]

---

作者: shootingstar    時間: 昨天 23:42     標題: 按指定次數重複數據

各位前輩好~我有一張項目分攤底稿，希望按有參與項目分攤的次數重複摘要欄並將分攤金額填入，[attach]37933[/attach]，請問在L3~N3該如何下公式，謝謝

---

作者: Andy2483    時間: 4 小時前

回復 1# shootingstar


    謝謝前輩發表此主題與範例,後學藉此帖練習VBA陣列的方案,請前輩參考

Option Explicit
Sub TEST()
Dim Brr, Crr(1 To 10000, 1 To 3), i&, j%, R&, T$
Brr = Range([I2], Cells(Rows.Count, 1).End(3))
For i = 2 To UBound(Brr)
   T = Brr(i, 1)
   For j = 2 To UBound(Brr, 2)
      If Val(Brr(i, j)) <> 0 Then
         R = R + 1
         Crr(R, 1) = T
         Crr(R, 2) = Brr(1, j)
         Crr(R, 3) = Val(Brr(i, j))
      End If
   Next
Next
Intersect(ActiveSheet.UsedRange.Offset(2, 11), [L:N]).ClearContents
If R = 0 Then Exit Sub
[L3:N3].Resize(R) = Crr
End Sub

---

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