1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
Sub CombineTT2sDelete () Тусклый s как шнур s = MsgBox («продолжайтесь? », vbYesNo) Если s = vbNo после этого выходят подводная лодка transferTT2S DeleteRows Подводная лодка конца