excel問題應該是需要VBA?

阿虎幾

阿虎幾
個人積分：0分
文章編號：83231158

0分

樓主

2021-10-13 21:08

請問有什麼辦法能讓下圖的左表直接轉成右表的形式

excel問題應該是需要VBA?

需求:
每筆資料需要根據包裝數量來拆分筆數，並且要更改數量
以產品Ａ為例
總數量為3210,數量分拆成500*6+200
1.500
2.500
3.500
4.500
5.500
6.500
7.200

共分成７筆

再來因為包裝方式為"塑膠袋"
故要多一筆總是3210

共8筆

因為每次都要靠複製貼上然加上手動改數量有點麻煩

想到用巨集不過感覺這應該是需要寫VBA比較可行吧

不知道該怎麼寫?

是否有高人可指點一下

2021-10-13 21:08 發佈

文章關鍵字 excel 問題

misser

misser
個人積分：395分
文章編號：83236448

395分

2樓

2021-10-14 12:40

樓主：

有想幫您寫一個VBA範例，但其實看不大懂您的意思：
1.為何塑膠袋要多1？代表不是塑膠袋的都不用多1？
2.

阿虎幾 wrote:
總數量為3210,數量分拆成500*6+200

這樣是分7，可以理解(不算多+的1).....但是，這模式又如何套用到C產品？？

可能樓主得多提供一點線索喔。～~再不然就得看其他，看得懂您意思的大大出手囉。(有時好像都是我想太多......)

Der，misser1

nwcs

nwcs
個人積分：5922分
文章編號：83239428

5922分

3樓

2021-10-14 17:22

excel矩陣轉置+VBA

peter3057

樓主要的是同一品項,依數量拆解為多筆,不是行列轉置哦!

2021-10-14 21:06

nwcs

恕我眼拙，感謝指正!

2021-10-15 11:01

錦子

錦子
個人積分：2074分
文章編號：83241324

2074分

4樓

2021-10-14 21:28

F2:
=IFERROR(LEFT(D2,FIND("*",D2,1)-1),IFERROR(LEFT(D2,FIND("+",D2,1)-1),C2))
再將公式複製到F3:F5

H2:
輸入第一個產品：A

H3:
=IF(COUNTIF($H$2:H2,H2)=IF(VLOOKUP(H2,$A$2:$F$5,5,0)="塑膠袋",1,0)+ROUNDUP(VLOOKUP(H2,$A$2:$F$5,3,0)/VLOOKUP(H2,$A$2:$F$5,6,0),0),OFFSET($A$1,MATCH(H2,$A$1:$A$5,0),0),H2)
再將公式複製到H4:H15

I2:
=VLOOKUP(H2,$A$1:$E$5,2,0)

J2:
=IF(COUNTIF($H$2:H2,H2)=IF(VLOOKUP(H2,$A$2:$F$5,5,0)="塑膠袋",1,0)+ROUNDUP(VLOOKUP(H2,$A$2:$F$5,3,0)/VLOOKUP(H2,$A$2:$F$5,6,0),0),IF(VLOOKUP(H2,$A$2:$F$5,5,0)="塑膠袋",VLOOKUP(H2,$A$2:$F$5,3,0),VLOOKUP(H2,$A$2:$F$5,3,0)-SUMIF($H$1:H1,H2,$J$1:J1)),IF(COUNTIF($H$2:H2,H2)=ROUNDUP(VLOOKUP(H2,$A$2:$F$5,3,0)/VLOOKUP(H2,$A$2:$F$5,6,0),0),VLOOKUP(H2,$A$2:$F$5,3,0)-SUMIF($H$1:H1,H2,$J$1:J1),VALUE(VLOOKUP(H2,$A$2:$F$5,6,0))))

K2:
=VLOOKUP(H2,$A$1:$E$5,4,0)

L2:
=VLOOKUP(H2,$A$1:$E$5,5,0)

再將I2:L2公式複製到I3:L15
點我看大圖

關於出現的0值，可用儲存格格式設定消除。

錦色如月，子耀光芒。

從 APP 打開

excel問題 應該是需要VBA?

excel問題應該是需要VBA?