[發問] 對應欄位問題

要怎麼將如圖的對應欄位，變成像工作表2都寫在同一個儲存格裡 (0以外的才要)

可以設置一開啟EXCEL就自動跑好嗎?

test300.rar (7.49 KB)

樓主熱帖

starbox520

中學生 Rank: 2

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2016-12-9 17:58 | 顯示全部帖子

Private Sub Workbook_Open()
Dim arA, arB, x%, y%, s$
Sheets("工作表2").Activate
[a1].CurrentRegion.Offset(1).ClearContents
arA = Sheets("工作表1").UsedRange
ReDim arB(1 To UBound(arA, 2) - 1, 1 To 2)
For y = 2 To UBound(arA, 2)
arB(y - 1, 1) = arA(1, y)
For x = 3 To UBound(arA)
If arA(x, y) <> 0 Then
s = IIf(arA(x, y) > 0, arA(x, 1) & "+" & arA(x, y), arA(x, 1) & arA(x, y))
arB(y - 1, 2) = IIf(arB(y - 1, 2) = "", s, arB(y - 1, 2) & " , " & s)
End If
Next
Next
[a2].Resize(UBound(arB), 2) = arB
End Sub

複製代碼

TOP

starbox520

中學生 Rank: 2

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2016-12-10 12:38 | 顯示全部帖子

回復 3# c_c_lai
回復 3# hcm19522

好唷!!!
正在努力學習一些好懂的><

下變得版h大用巨集
我看不太懂XD 這是公式的意思嗎
沒試過

K2:O8{=IFERROR(IF(COLUMN(A1)=1,"",",")&INDEX($A:$A,SMALL(IF(($B$3:$H$25<>0)*($B$1:$H$1=$J2),ROW(B$3:H$25)),COLUMN(A1)))&TEXT(N(INDIRECT(TEXT(SMALL(IF(($B$3:$H$25<>0)*($B$1:$H$1=$J2),ROW(B$3:H$25)*100+COLUMN($B3:$H25)),COLUMN(A1)),"!R0C00"),)),"!+0;!-0")&L2,"")

複製代碼

TOP

starbox520

中學生 Rank: 2

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2016-12-12 12:13 | 顯示全部帖子

本帖最後由 starbox520 於 2016-12-12 12:14 編輯

回復 3# c_c_lai

C大第二種是可以選擇範圍的意思吼
會變成這樣?
'  UBound(Ln, 1) = 177 : Long / UBound(Ln, 2) : 31 : Long
   31是我只要判斷到 "AE"欄而已
   工作表 "TEST是寫入"的地方，這邊我要多判斷 A欄的  M#SCC 跟 S#SCC  不要做處理(顯示)
   我試過在IF加入 If arA(x, y) <> 0 And arA <> "M#SCC" And arA <> "S#SCC" Then
   會出現型態不符
   排版也變了，詳請附檔
   該怎麼修改呢

scanttt.rar (20.36 KB)

TOP

starbox520

中學生 Rank: 2

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2016-12-12 17:57 | 顯示全部帖子

回復 9# c_c_lai

C大我以我會的寫法練習一次
這方法好像不會超過
但問題點是把AE欄以後的也判斷進去了
怕未來資料量越來越多的話，會卡在這個問題XD
所以先研究起來放哈哈

Private Sub Workbook_Open()
Dim vData As Variant, nRow As Integer, nCol As Integer
Dim vFill As Variant
vData = Sheets("Data").UsedRange
ReDim vFill(2 To UBound(vData, 2), 1 To 8)
For nCol = 2 To UBound(vData, 2)
vFill(nCol, 2) = vData(1, nCol)
For nRow = 3 To UBound(vData)
If vData(nRow, nCol) <> 0 And vData(nRow, 1) <> "M#SCC" And vData(nRow, 1) <> "S#SCC" Then
If vFill(nCol, 8) <> "" Then vFill(nCol, 8) = vFill(nCol, 8) & ","
vFill(nCol, 8) = vFill(nCol, 8) & vData(nRow, 1) & IIf(vData(nRow, nCol) > 0, "+", "") & vData(nRow, nCol)
End If
Next
Next
With Sheets("TEST")
.[A1].CurrentRegion.Offset(1).ClearContents
.[A2].Resize(UBound(vFill) - 1, 8) = vFill
End With
End Sub