Помогите с макросами в Excel

nunbell для собак

Содержимое статьи:

Задача: Создать макрос, который будет переносить каждое слово выделенного диапазона на новую строку.
Сложность:

• Задача невозможна для решения с помощью стандартных команд макроса.
• Необходимо использовать пользовательский код VBA.
  Возможные решения: 1. Использование функции ReplaceAllText:

  Sub SplitWords()
  
  Dim rng As Range, cell As Range
  
  Set rng = Application.InputBox("Выберите диапазон:", "Разделение слов", Type:=8)
  
  If rng Is Nothing Then Exit Sub
  
  For Each cell In rng.Cells
  
  cell.Value = ReplaceAllText(cell.Value, " ", vbCrLf)
  
  Next cell
  
  End Sub
  
  Function ReplaceAllText(ByVal text As String, ByVal findText As String, ByVal replaceText As String) As String
  
  Dim startPos As Integer
  
  Dim newString As String
  
  startPos = InStr(1, text, findText)
  
  Do While startPos > 0
  
  newString = newString & Left(text, startPos - 1) & replaceText
  
  text = Mid(text, startPos + Len(findText))
  
  startPos = InStr(1, text, findText)
  
  Loop
  
  ReplaceAllText = newString & text
  
  End Function

  2. Использование функции Split:

  Sub SplitWords()
  
  Dim rng As Range, cell As Range
  
  Set rng = Application.InputBox("Выберите диапазон:", "Разделение слов", Type:=8)
  
  If rng Is Nothing Then Exit Sub
  
  For Each cell In rng.Cells
  
  cell.Value = Join(Split(cell.Value, " "), vbCrLf)
  
  Next cell
  
  End Sub