Поскольку Excel не предоставляет никакого пользовательского формата, поэтому я хотел бы предложить вам код VBA (Macro), самый быстрый способ поместить требуемый символ между значениями ячейки через регулярный интервал.
Sub InsertCharacter()
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "Put Dashes"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
Как это устроено:
- Скопируйте и вставьте этот код как стандартный модуль с листом.
Как только вы ЗАПУСТИТЕ макрос, на экране появится 4 INPUT BOX один за другим.
В первом поле ввода будет задан диапазон исходных данных.
Второй будет искать количество символов (после того, сколько символов вам нужно - знак, в вашем случае это 2).
Третий попросит вставить Персонажа (в вашем случае - подписать).
Последний запросит позицию ячейки вывода (должна быть одна ячейка).
Готово с ОК.
NB
Этот макрос является универсальным, вы можете использовать любой символ для вставки между ними, также может быть изменен интервал между символами, а также он работает с любым типом данных буквенно-цифровой, числовой или алфавитный. И самое приятное, что он работает практически со всеми версиями Excel (2007, 2010, 2013 и 2016)