標題: [發問] 請大家幫幫忙 [打印本頁]

---

作者: kopass    時間: 2015-11-28 15:28     標題: 請大家幫幫忙

本帖最後由 kopass 於 2015-11-28 15:30 編輯

請大神們幫幫忙，

請問Marco 要怎麼寫才能將 sheet1 中 紅色部分和 sheet a 中紅色部分。如果sheet 1 紅色部分沒有在 sheet a 中紅色中出現。就將sheet1 中沒有出現的部分增加到 sheet a 中。有勞大神們
[attach]22643[/attach]
[attach]22640[/attach]

---

作者: yen956    時間: 2015-11-28 19:31

是不是這個意思?
[attach]22644[/attach]

---

作者: kopass    時間: 2015-11-28 23:18

謝謝你的幫忙，但不是我想要的效果，其實column A 是員工號碼， column B 是 sheet 的名稱，column C 是 數量。我想講sheet1 的資料，分別投入相應的sheet 中。因為每天員工上班情況不一樣，所以員工號碼不一定每天一樣，所以要增加沒有的員工欄位！

---

作者: n7822123    時間: 2015-11-30 00:16

回復 1# kopass

發問盡量要附檔案，不然會沒人理你。

先把a sheet 的工號全部刪掉
把sheet1 A欄有資料的工號全部複製(Ctrl+C)
再到a sheet的[B1]按右鍵>選擇性貼上>轉置

---

作者: yen956    時間: 2015-11-30 09:09

本帖最後由 yen956 於 2015-11-30 09:11 編輯

Sub test()
     Dim LstR As Integer, I As Integer, shName As String, Qt As Integer, MH
    LstR = [A1].End(xlDown).Row
    For I = 2 To LstR
        shName = Cells(I, 2)
        MH = Application.Match(Cells(I, 1), Sheets(shName).Rows(1), 0)
        If IsNumeric(MH) Then
            Sheets(shName).Cells(Day(Cells(I, 5) + 1), MH) = Cells(I, 3)
        End If
    Next
End Sub

---

作者: hcm19522    時間: 2015-11-30 11:04

Sheet1!aB2=TEXT(MAX((Sheet1!$E$1=$A2)*(B$1=Sheet1!$A$2:$A$11)*(Sheet1!$B$2:$B$11="a")*Sheet1!$C$2:$C$11),"[=] ")
複製到Sheet1!bB2   "a"改"b"  陣列

---

作者: yen956    時間: 2015-11-30 17:22

補圖:
[attach]22674[/attach]

---

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