[發問] 請大家幫幫忙

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

請大神們幫幫忙，

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

1.jpg (164.16 KB)

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2015-11-28 19:31 | 只看該作者

是不是這個意思?

TOP

kopass

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: win8
軟體版本: 2010
閱讀權限: 10
註冊時間: 2015-11-28
最後登錄: 2015-11-28

3^#

發表於 2015-11-28 23:18 | 只看該作者

[版主管理留言]

GBKEE(2015/11/29 10:36): 檔案用壓縮檔上傳

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

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 2015-11-30 00:16 | 只看該作者

回復 1# kopass

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

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

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

5^#

發表於 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

TOP

hcm19522