[發問] 如何使用參照頁來取代特定字串

請問如何更快速使用參照頁來取代特定字串

希望透過 "人員編號"對照"編號"來取代,達到"人名對照"效果

目前使用的取代方式為
Worksheets("人員編號").Columns("B").Replace _
What:="D00024", Replacement:="赤淑英", _
SearchOrder:=xlByColumns, MatchCase:=True

等於要每個編號都須建立取代
請問能否有更有效率達到範例裡的效果?

TEST.zip (9.99 KB)

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

2^#

發表於 2024-3-22 10:02 | 只看該作者

回復 1# GGGYYY

謝謝前輩發表此主題與範例
後學藉此帖練習字典與 SpecialCells(),學習方案如下,請前輩參考

Option Explicit
Sub TEST()
Dim Z, xR As Range
Set Z = CreateObject("Scripting.Dictionary")
For Each xR In Sheets("編號").Cells.SpecialCells(2)
If xR Like "[A-Z]#####" Then Z(xR.Value) = xR(1, 0)
Next
Sheets("人名對照").UsedRange.Offset(1).EntireRow.Delete
Sheets("人員編號").UsedRange.Offset(1).Copy [人名對照!A2]
For Each xR In Sheets("人名對照").Cells.SpecialCells(2)
If Z.Exists(xR.Value) Then xR = Z(xR.Value)
Next
End Sub

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

TOP

GGGYYY

中學生 Rank: 2

帖子: 16
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: WINDOWS 7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-7-5
最後登錄: 2024-11-28

3^#

發表於 2024-3-22 13:49 | 只看該作者

感謝Andy大的解答，實測沒問題~
整個超精簡，太謝謝您了。

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

4^#

發表於 2024-3-27 07:59 | 只看該作者

謝謝論壇,謝各位前輩
後學藉此帖做複習,心得如下,請各位前輩指教

Option Explicit
Sub TEST()
Dim Z, xR As Range
'↑宣告變數:xR變數是儲存格變數,Z是通用變數
Set Z = CreateObject("Scripting.Dictionary")
'↑令Z變數是字典
For Each xR In Sheets("編號").Cells.SpecialCells(2)
'↑設逐項迴圈!令xR變數是工作表裡的非空格儲存格
If xR Like "[A-Z]#####" Then Z(xR.Value) = xR(1, 0)
'↑如果xR變數值類型是大寫英文字開頭再連接5碼數字所組成的字串?
'True就令已xR變數值為key,item是xR變數左側儲存格值,納入Z字典
Next
Sheets("人名對照").UsedRange.Offset(1).EntireRow.Delete
'↑令舊資料刪除
Sheets("人員編號").UsedRange.Offset(1).Copy [人名對照!A2]
'↑令資料複製到結果表
For Each xR In Sheets("人名對照").Cells.SpecialCells(2)
'↑設逐項迴圈!令xR變數是工作表裡的非空格儲存格
If Z.Exists(xR.Value) Then xR = Z(xR.Value)
'↑如果Z字典裡有 xR變數值?就令xR變數值是以xR變數值查Z字典回傳item值
Next
End Sub

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

5^#

發表於 2024-3-28 12:57 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖以資料表練習合併儲存格判定與陣列做出團購明細並設定列印範圍,學習方案如下,請各位前輩指教
資料表:

執行後結果表:

Option Explicit
Sub TEST_20240328_1()
Dim xR As Range, Brr, i%, j%, T$, Crr, R%
ReDim Crr(1 To 1000, 1 To 6)
With Sheets("編號")
Brr = .UsedRange
For j = 1 To UBound(Brr, 2) Step 3
   For i = 1 To UBound(Brr)
      Set xR = .Cells(i, j): If xR.MergeArea.Cells.Count = 2 And xR <> "" And xR <> T Then T = xR: GoTo i01
      R = R + 1: Crr(R, 1) = R: Crr(R, 2) = T: Crr(R, 3) = Brr(i, j): Crr(R, 4) = Brr(i, j + 1)
i01:  Next
Next
End With
Workbooks.Add: [A1].Resize(, 6) = [{"NO.","職稱","姓名","人員編號","團購明細","總金額"}]
With [A2].Resize(R, 6)
.Value = Crr
.Columns(5).ColumnWidth = 25
.Borders.LineStyle = 1
Range([A1], .Cells).Name = "'" & ActiveSheet.Name & "'!Print_Area"
End With
End Sub

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

TOP

hcm19522