如何將&#27178;列資料轉為直列並編號

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

3^#

發表於 2018-3-8 09:18 | 只看該作者

回復 2# ML089

M大~~~不同列互不影響，以同列為檢查為主，謝謝你~~~~~

*宅女一枚無誤*

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2018-3-8 17:05 | 只看該作者

回復 3# msmplay
這種問題不建議使用函數來解
應該採用VBA輔助較為省事

學海無涯_不恥下問

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

5^#

發表於 2018-3-8 17:19 | 只看該作者

回復 4# Hsieh

H大~~~~那請問VBA有解ㄇ？因為我沒有頭緒其實

*宅女一枚無誤*

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2018-3-8 17:33 | 只看該作者

回復 5# msmplay

兩種方式
1.執行ex程序寫入P，Q欄
2.寫成自定義函數，陣列公式在R，S欄

轉置表格.zip (20.82 KB)

學海無涯_不恥下問

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

7^#

發表於 2018-3-8 22:25 | 只看該作者

回復 6# Hsieh

H大~~~~你實在是太厲害了!!!還真的完全解決了我的一大問題耶!!!!超感謝你的~~~~~~~~~~~~

*宅女一枚無誤*

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-27

熱烈參與勳章

8^#

發表於 2018-3-9 12:51 | 只看該作者

本帖最後由 hcm19522 於 2018-3-9 13:06 編輯

K2:K26{=INDIRECT(TEXT(SMALL(IF((COUNTIF(OFFSET(B$1,ROW($1:$18),,,COLUMN(A:I)),B$2:J$19)=1)*(LEN(B$2:J$19)>1),ROW(B$2:J$19)/1%+1),ROW(A1)),"!R0C00"),)&IF(T(INDIRECT(TEXT(SMALL(IF((COUNTIF(OFFSET(B$1,ROW($1:$18),,,COLUMN(A:I)),B$2:J$19)=1)*(LEN(B$2:J$19)>1),ROW(B$2:J$19)/1%+1),ROW(A1)),"!R0C00"),))=LEFT(K1,10),-COUNTIF(K$1:K1,LEFT(K1,10)&"*"),"")

二段有色字體相同

L2:L26{=IFERROR(INDIRECT(TEXT(SMALL(IF((COUNTIF(OFFSET(B$1,ROW($1:$18),,,COLUMN(A:I)),B$2:J$19)=1)*(LEN(B$2:J$19)>1),ROW(B$2:J$19)/1%+COLUMN(B:J)),ROW(A6)),"!R0C00"),),"")

55-4156.rar (14.56 KB)

1 評分人數

ML089: 太利害了金錢 + 5

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

9^#

發表於 2018-3-9 20:25 | 只看該作者

回復 8# hcm19522

h大~~~~你也好厲害喔!!!

*宅女一枚無誤*

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

10^#

發表於 2023-12-19 10:13 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教
執行前:

執行結果:

Sub TEST()
Dim 資料陣列, 空陣列, 字典, i&, j%, 空陣列已使用列數&, 同列不重複編號數%
Set 字典 = CreateObject("Scripting.Dictionary")
資料陣列 = Range([J2], [A65536].End(xlUp))
ReDim 空陣列(1 To 10000, 1 To 2)
For i = 1 To UBound(資料陣列)
訂單 = Trim(資料陣列(i, 1))
同列不重複編號數 = 0
For j = 2 To UBound(資料陣列, 2)
   If Trim(資料陣列(i, j)) = "Y" Or Trim(資料陣列(i, j)) = "" Then GoTo j01
   If 字典(Trim(資料陣列(i, j)) & i) <> "" Then
      GoTo j01
      Else
      字典(Trim(資料陣列(i, j)) & i) = "X"
   End If
   空陣列已使用列數 = 空陣列已使用列數 + 1
   同列不重複編號數 = 同列不重複編號數 + 1
   If 同列不重複編號數 = 1 Then
      空陣列(空陣列已使用列數, 1) = 訂單
      Else
      空陣列(空陣列已使用列數, 1) = 訂單 & "-" & 同列不重複編號數 - 1
   End If
   空陣列(空陣列已使用列數, 2) = Trim(資料陣列(i, j))
j01: Next
Next
[P2].Resize(空陣列已使用列數, 2) = 空陣列
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流