Sub Макрос1()
rws = Cells(Rows.Count, 1).End(xlUp).Row
For k = 1 To rws
stroka = Cells(k, 1).Value
Dim arr As Variant
j = 1
ReDim arr(1 To Len(stroka))
For i = 1 To Len(stroka)
If Mid(stroka, i, 1) = UCase(Mid(stroka, i, 1)) Then
arr(j) = i
j = j + 1
End If
Next
ReDim Preserve arr(1 To j - 1)

For i = 1 To j - 1
On Error Resume Next
If i < UBound(arr) Then
Cells(k, i + 1).Value = Mid(stroka, arr(i), arr(i + 1) - arr(i))
Else
Cells(k, i + 1).Value = Right(stroka, Len(stroka) - arr(i) + 1)
End If
Next

Next

End Sub

=ПРОПИСН(ЛЕВСИМВ(A1;1))&A1

=ЛЕВСИМВ(A11;ПОИСК(".";A11;1)+1)&ПРОПИСН(ПСТР(A11;ПОИСК(".";A11;1)+2;1))&ПРАВСИМВ(A11;ДЛСТР(A11)-ПОИСК(".";A11;1)-1)

Sub AAAAAAAAAAAAAAAAAAAAA()
k = 1
For i = 1 To 4
For j = 1 To 4
Cells(k, 1).FormulaLocal = "=" & i & " + " & j
k = k + 1
Next
Next


End Sub

v = 1 'номер столбца с гиперссылками
rws = cells(rows.count, v).end(xlup).row
for i = 1 to rws
If Cells(i, v).Value <> "" Then
cells (i, v).value = cells(i,v).value & ".htm"
End If
next 

=сцепить()

clfrm = Right(cl.FormulaLocal, Len(cl.FormulaLocal) - 1)

 Dim cl As Range
     On Error Resume Next
     For Each cl In Selection.Cells
         If cl.Errors.Item(xlEvaluateToError).Value = True Then
             cl.ClearContents
         End If
     Next

For Each cell In rng2
      c = cell.Row
      Range(Cells(x, 22), Cells(x, 24)).Merge
      Range(Cells(x, 22), Cells(x, 24)).formulalocal= "=суммесли($a$1:a19;$v$" &  c  & ";$b$1:b19)"
      x=x+1
      Next cell

cells(2,2).formulalocal = "=суммесли(A:A;B1;C:C)"

 .formulalocal ="=суммесли....." 

=ЕСЛИ(ЕЧИСЛО(ПОИСК("верейск";A6;1));"база1";ЕСЛИ(ЕЧИСЛО(ПОИСК("очаков";A6;1));"база2";ЕСЛИ(ЕЧИСЛО(ПОИСК("боровск";A6;1));"база3";"не база")))