Удвоить каждый символ в строке

[мария2507]

помогите плиз!!! как в макросе удвоить каждый символ в строке????

[doober]

Function Udwoenie(stroka As String) As String

Dim wyhstroka As String
Dim n As Integer
For n = 1 To Len(stroka)
wyhstroka = wyhstroka & Mid(stroka, n, 1) & Mid(stroka, n, 1)
Next
Udwoenie = wyhstroka

End Function

[мария2507]

а у меня пишет ошибку аргумент type mismatch((
это почему????

[doober]

А у меня нет.
Ответ во вложении

[мария2507]

спасибо большое!!!!

[мария2507]

а можно еще одну просьбочку??

В столбце А (n строк, n - четное) введены натуральные числа. Поменять местами числа, расположенные в четных и нечетных строках

[SAS888]

Можно так:

Sub Main()
    Dim i As Long: Application.ScreenUpdating = False
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
        Cells(i, 1) = Cells(i, 1) Xor Cells(i + 1, 1)
        Cells(i + 1, 1) = Cells(i, 1) Xor Cells(i + 1, 1)
        Cells(i, 1) = Cells(i, 1) Xor Cells(i + 1, 1)
    Next
End Sub

пример во вложении.

[мария2507]

спасибо огромное))