Обработка 51 счета (черновики)

Sub dsdsds()
  i = 1
  For Each r In Range("C1:C1050")
      If IsDate(r) = False Or IsEmpty(r) = True Then Range(i & ":" & i).Delete
  i = i + 1
  Next
End Sub


Sub dddddd()

For i = 1 To 1000
'Debug.Print Right(Range("B200"), Len(Range("B200")) - Len("40702810438250132520 77226100000"))

Range("C" & i) = Right(Range("C" & i), Len(Range("C" & i)) - Len("40702810438250132520 77226100000"))

Next i
End Sub


Public Sub www()
    Dim r As Range
    With ActiveSheet
        Set r = Intersect(.UsedRange, .[E:F]).Offset(1)
        r.FormulaLocal = r.FormulaLocal
    End With
End Sub


Function delcr2000(ByVal r As Range)
Dim arr() As String
ReDim arr(200)
For i = 1 To Len(r)
  arr(i) = Mid(r, i, 1)
  If Mid(r, i, 1) = "(" Then
     arr(i) = " "
     sssss = 1
     Exit For
  End If
Next i
delcr2000 = Left(Join(arr(), ""), Len(Join(arr(), "")) - 2)

If sssss  1 Then delcr2000 = r
End Function


Sub dsdsdsdsdsdsddsd()
  
  For Each r In Range("C2:C1050")
      r = delcr2000(r)
  Next


End Sub



Sub DelChr10(colum As String)
For i = 1 To Cells.SpecialCells(xlLastCell).Row
 Range(colum & i) = delcr(Range(colum & i), Chr(10))
 DoEvents
Next i
End Sub
 
Sub DelChr10RUN()
' DelChr10 "C"
 DelChr10 "D"
 DoEvents
End Sub
 
Function delcr(r As Range, cr As String)
Dim arr() As String
ReDim arr(Len(r))
For i = 1 To Len(r)
  arr(i) = Mid(r, i, 1)
  If Mid(r, i, 1) = " " Then arr(i) = " "
  If Mid(r, i, 1) = cr Then arr(i) = " "
Next i
delcr = Join(arr(), "")
End Function


Function фы(r As Range)

If r.Value Like "*РосЕвроБанк*" Or r.Value Like "*РосДорБанк*" Or r.Value Like "*СБЕРБАНК РОССИИ*" Or r.Value Like "*ПАО СБЕРБАНК*" Then
   фы = ""
Else: фы = r.Value
End If

End Function


Function SASS(r As Range)

If r.Value Like "*Комиссия*" Or r.Value Like "*справки*" Then SASS = "Комиссия"
If r.Value Like "*Перечисление денежных средств*" Then SASS = "Перечисление ДС"

If r.Value Like "*Выдача кредита*" Then SASS = "Выдача кредита"
If r.Value Like "*Выплата начисленных процентов по вкладу*" Then SASS = "Выплата начисленных процентов по вкладу"
If r.Value Like "*Выдача денежных средств*" Then SASS = "Выдача денежных средств"
If r.Value Like "*ПЕРЕВОД СРЕДСТВ*" Then SASS = "Перечисление ДС"
If r.Value Like "*Погашение суммы ссудной задолженности*" Then SASS = "Погашение кредита"
If r.Value Like "*Возврат*" Then SASS = "Возврат кредита"
If r.Value Like "*комиссии*" Then SASS = "Комиссия"
If r.Value Like "*Комиссионное*" Or r.Value Like "*комиссионного*" Then SASS = "Комиссия"
If r.Value Like "*процентов*" Then SASS = "Проценты"
If r.Value Like "*Банк-Клиент*" Then SASS = "Комиссия"
If r.Value Like "*Предоставление кредита*" Then SASS = "Выдача кредита"
If r.Value Like "*Проценты*" Then SASS = "Проценты"
'If r.Value Like "*Перечисление денежных средств*" Then SASS = "Перечисление ДС"
'If r.Value Like "*Перечисление денежных средств*" Then SASS = "Перечисление ДС"
'If r.Value Like "*Перечисление денежных средств*" Then SASS = "Перечисление ДС"
'If r.Value Like "*Перечисление денежных средств*" Then SASS = "Перечисление ДС"
'If r.Value Like "*Перечисление денежных средств*" Then SASS = "Перечисление ДС"

End Function