麻辣家族討論版版 » Excel程式區 » (已解決)如何列出相同部門的員工

返回列表下一主題上一主題發帖

[發問] (已解決)如何列出相同部門的員工

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-11-22 15:12 | 顯示全部帖子

[發問] (已解決)如何列出相同部門的員工

本帖最後由 freeffly 於 2012-2-22 16:53 編輯

想將A欄跟B欄的資料處理成像F欄跟G欄那樣
第一格是部門第二格之後的是該部門員工
依序將A欄跟B欄的資料處理完

新增Microsoft Excel 工作表.rar (4.26 KB)

樓主熱帖

收藏

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

2^#

發表於 2011-11-22 16:40 | 顯示全部帖子

回復 2# oobird
謝謝版主回覆
下面是我剛想出來的方式
方法差真多
而且我的方式可以說是有點蠟擦(掉漆)
版主又使用了我不太會的字典
先收下研究
感恩

Sub 測試()
Application.ScreenUpdating = False
Range("F2").Resize(Range("A65536").End(xlUp).Row, Range("iv1").End(xlToLeft).Column).Clear
Columns("H:H").Clear
Range("A1:A" & Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"H1"), Unique:=True
Range("F1").Resize(, Range("H65536").End(xlUp).Row - 1) = Application.Transpose(Range("H2:H" & Range("H65536").End(xlUp).Row))
Range("H2:H" & Range("H65536").End(xlUp).Row).Clear
For i = 2 To Range("B65536").End(xlUp).Row
For n = 6 To [iv1].End(xlToLeft).Column
If Cells(1, n) = Cells(i, 1) Then
Cells(i, n) = Cells(i, 2)
End If
Next
Next
For n = 6 To [iv1].End(xlToLeft).Column
Columns(n).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Next
End Sub

複製代碼

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

3^#

發表於 2011-11-25 17:30 | 顯示全部帖子

回復 4# GBKEE

謝謝版主
此方法一樣可以腦筋有點快打結了
收下研究

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

4^#

發表於 2011-11-28 08:52 | 顯示全部帖子

回復 6# Hsieh

謝謝版主提供函數寫法
又多一種學習方式

字典兩各字還真難理解

靜思自在 : 盡多少本份，就得多少本事。

返回列表下一主題上一主題