#excel #vba
Вопрос:
Могу ли я узнать, как добавить символ ‘ в код VBA Excel до и после ввода алфавита. Мне нужно, чтобы это было длиной 25 символов.
Например, если в предложении говорится: «Я ХОРОШИЙ», то мне нужно быть таким, как есть…
«Я»
«А» «М»
«Г» О» О» Д»
У меня есть сценарий, и мне нужно добавить в него эту конкретную функцию.
Мы очень ценим любую помощь.
Заранее спасибо.
код: —
Sub aaa() Dim buff() As String Dim my_string As Variant Dim rng As Range my_string = ThisWorkbook.Sheets(1).Range("A1").Value ReDim buff(Len(my_string) - 1) For i = 1 To Len(my_string) buff(i - 1) = Mid$(my_string, i, 1) ThisWorkbook.Sheets(1).Range("B" amp; i).Value = buff(i - 1) If ThisWorkbook.Sheets(1).Range("B" amp; i).Value = " " Then ThisWorkbook.Sheets(1).Range("B" amp; i).Value = "[right]" For Each rng In ThisWorkbook.Sheets(1).Range("B1:B25") If Len(rng) = 0 Then rng.Value = "[right]" End If Next rng End If Next MsgBox "Completed" End Sub Комментарии:
1. Ты что — нибудь пробовал? Кажется, вы могли бы сделать это довольно просто во время (или после) заселения
buf. Что происходит, когда вы это делаете?2. Добавьте ожидаемый ввод/вывод, а также добавьте скриншоты. Также добавьте скриншот, показывающий, что вы на самом деле получаете, и укажите, чем это отличается от того, что вы хотите