Лістинг 1
Sub OKONCHANIE_ed_ch ()
Dim iRng As Range, iCell As Range, r As Long, t As Long, y As Long, u As Long, i As Long, O As Longp As Long, a As Long, s As Long, d As Long, m As Long=8=8=8=8=8=8=8=8=8=8=8=8iRng=Range («D2: D10000») Each iCell In iRngiCell Like" * сть» Then r=r + 1: Range («O» & r)=iCellEach iCell In iRngiCell Like" * о» Then t=t + 1: Range («P» & t)=iCellEach iCell In iRngiCell Like" * ом» Then y=y + 1: Range («Q» & y)=iCellEach iCell In iRngiCell Like" * ем» Then u=u + 1: Range («R» & u)=iCellEach iCell In iRngiCell Like" * ня» Then i=i + 1: Range («S» & i)=iCellEach iCell In iRngiCell Like" * нення» Then O=O + 1: Range («T» & O)=iCellEach iCell In iRngiCell Like" * ція» Then O=O + 1: Range («U» & m)=iCellSub
Лістинг 2
OKONCHANIE () iRng As Range, iCell As Range, r As Long, t As Long, y As Long, u As Long, i As Long, O As Longp As Long, a As Long, s As Long, d As Long=8=8=8=8=8=8=8=8=8=8=8=8iRng=Range («D2: D6000») Each iCell In iRngiCell Like" * и» Then r=r + 1: Range («E» & r)=iCellEach iCell In iRngiCell Like" * сти» Then t=t + 1: Range («F» & t)=iCellEach iCell In iRngiCell Like" * ов» Then y=y + 1: Range («G» & y)=iCellEach iCell In iRngiCell Like" * стей» Then u=u + 1: Range («H» & u)=iCellEach iCell In iRngiCell Like" * ам» Then i=i + 1: Range («I» & i)=iCellEach iCell In iRngiCell Like" * ям» Then O=O + 1: Range («J» & O)=iCellEach iCell In iRngiCell Like" * ами» Then p=p + 1: Range («K» & p)=iCellEach iCell In iRngiCell Like" * ями» Then a=a + 1: Range («L» & a)=iCellEach iCell In iRngiCell Like" * ах» Then s=s + 1: Range («M» & s)=iCellEach iCell In iRngiCell Like" * ях» Then d=d + 1: Range («N» & d)=iCellSub
Лістинг 3
RedOkonch () iRng As Range, iCell As RangeiRng=Range («E9: E200») Each iCell In iRngiCell Like" * єни» Then iCell.ClearContentsiRng=Range («E9: E200») Each iCell In iRngiCell Like" * ани» Then iCell.ClearContentsiRng=Range («E9: E200») Each iCell In iRngiCell Like" * вни» Then iCell.ClearContents
'Од. чіслоiRng=Range («P9: P200») Each iCell In iRngiCell Like «* ло» Then iCell.ClearContentsiRng=Range («P9: P200») Each iCell In iRngiCell Like" * ого» Then iCell.ClearContentsiRng=Range («P9: P200») Each iCell In iRngiCell Like" * його» Then iCell.ClearContentsiRng=Range («P9: P200») Each iCell In iRngiCell Like" * але» Then iCell.ClearContentsiRng=Range («P9: P200») Each iCell In iRngiCell Like" * уто» Then iCell.ClearContentsiRng=Range («P9: P200») Each iCell In iRngiCell Like" * ято» Then iCell.ClearContentsiRng=Range («P9: P200») Each iCell In iRngiCell Like" * ово» Then iCell.ClearContentsiRng=Range («P9: P200») Each iCell In iRngiCell Like" * ево» Then iCell.ClearContentsiRng=Range («P9: P200») Each iCell In iRngiCell Like" * імо» Then iCell.ClearContentsiRng=Range («Q9: Q200») Each iCell In iRngiCell Like" * ном» Then iCell.ClearContentsiRng=Range («Q9: Q200») Each iCell In iRngiCell Like" * вом» Then iCell.ClearContentsiRng=Range («Q9: Q200») Each iCell In iRngiCell Like" * емом» Then iCell.ClearContentsiRng=Range («Q9: Q200») Each iCell In iRngiCell Like" * ському» Then iCell.ClearContentsiRng=Range («R9: R200») Each iCell In iRngiCell Like" * чим» Then iCell.ClearContentsiRng=Range («R9: R200») Each iCell In iRngiCell Like" * шем» Then iC...
