EXCEL清單如何轉換成財政部電子發票格式

我有一份EXCEL清單(同一行有發票單頭及發票單身,如果單身有2行,那個單頭就會重覆),請問如何轉換成財政部電子發票CSV的格式(單頭一行,下一行單身,一個品名一行,再換下一個單頭,再換下一筆單身 )
請各位大大幫幫忙,謝謝

活頁簿1.zip (22 Bytes)

樓主熱帖

VANESSA

中學生 Rank: 2

帖子: 100
主題: 37
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-8-11
最後登錄: 2024-3-12

論壇贊助勳章

2^#

發表於 2020-8-14 14:55 | 只看該作者

活頁簿1.zip (22 Bytes) 抱歉,剛才檔案好像沒上傳成功

TOP

VANESSA

中學生 Rank: 2

帖子: 100
主題: 37
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2007
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2010-8-11
最後登錄: 2024-3-12

論壇贊助勳章

3^#

發表於 2020-8-14 15:04 | 只看該作者

活頁簿1.zip (8.6 KB) 這次附檔成本了,請參照,謝謝

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

4^#

發表於 2020-8-15 10:08 | 只看該作者

表身筆數不定, 用vba吧!
增加一個工作表2:
Sub 載入()
Dim xR As Range, xH As Range, T$
[工作表2!A1:L3000].ClearContents
Set xH = [工作表2!A1]
Application.ScreenUpdating = False
For Each xR In Range([工作表1!A1], [工作表1!A65536].End(xlUp))
If xR <> "M" Then GoTo 101
If xR(1, 2) <> T Then
xR.Resize(1, 12).Copy xH
Set xH = xH(2): T = xR(1, 2)
End If
xR(1, 16).Resize(1, 6).Copy xH
Set xH = xH(2)
101: Next
End Sub