D'athraigh mé feidhm an ábhair chun na roghanna reatha a bhaint agus iad a athroghnú agus chun extra;'s a bhaint. Seo an cód athbhreithnithe:

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
' arna nuashonrú ag Extendoffice 2019/11/13
'Nuashonraithe ag Ken Gardner 2022/07/11
Dim xRng Mar Raon
Dim xLuach1 Mar Theaghrán
Dim xLuach2 Mar Theaghrán
Dim semiColonCnt Mar Slánuimhir
Má tá Sprioc.Comhaireamh > 1 Ansin Scoir Fo
Ar Lean Earráid Aghaidh
Socraigh xRng = Cells.SpecialCells(xlCellTypeAllValidation)
Mura rud é xRng Ansin Scoir Fo
Application.EnableEvents = Bréagach
'Mura bhfuil Iarratas.Intersect(Sprioc, xRng) Ní dhéanfaidh aon ní ansin
If Application.Intersect(Sprioc, xRng) Ansin
xValue2 = Target.Value
Feidhmchlár.Cealaigh
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" Ansin
If xValue2 <> "" Ansin
Má tá xValue1 = xValue2 Nó xValue1 = xValue2 &";" Nó xValue1 = xValue2 & "; " Ansin ' fág an luach mura bhfuil ach ceann amháin ar an liosta
xValue1 = Ionadaigh(xValue1,"; "," "")
xValue1 = Ionadaigh(xValue1,";", "")
Target.Value = xValue1
ElseIf InStr(1, xValue1,"; " & xValue2) Ansin
xValue1 = Athsholáthar(xValue1, xValue2," "") ' baintear an luach reatha den liosta ar athroghnú
Target.Value = xValue1
ElseIf InStr(1, xValue1, xValue2 & ";") Ansin
xValue1 = Ionadaigh(xValue1, xValue2," "")
Target.Value = xValue1
Eile
Target.Value=xValue1&";" &xValue2
Deireadh Má
Target.Value = Ionadaigh(Sprioc.Value, ";;", ";")
Target.Value = Ionadaigh(Sprioc.Value, "; ;", ";")
Má tá InStr(1, Target.Value, "; ") = 1 Ansin ' seiceáil le haghaidh ; mar an chéad charachtar agus é a bhaint
Target.Value = Ionadaigh(Sprioc.Value, ";", "", 1, 1)
Deireadh Má
Má tá InStr(1, Target.Value, ";") = 1 Ansin
Target.Value = Ionadaigh(Sprioc.Value, ";", "", 1, 1)
Deireadh Má
leathColonCnt = 0
I gcás i = 1 Go Len(Sprioc.Luach)
Má tá InStr(i, Target.Value, ";") Ansin
semiColonCnt = semiColonCnt+1
Deireadh Má
Ar Aghaidh i
Má semiColonCnt = 1 Ansin ' bain ; más carachtar deireanach
Target.Value = Ionadaigh(Sprioc.Value, ";", "")
Target.Value = Ionadaigh(Target.Value, ";", "")
Deireadh Má
Deireadh Má
Deireadh Má
Deireadh Má
Application.EnableEvents = Fíor
Fo Deireadh