Формула множественного склеивания для excel

Question

Я хотел бы знать, можно ли создать макрос, который будет вставлять каждую ячейку из скопированного диапазона несколько раз (x) в один столбец.

Например. мы имеем данные в форме, как этот
в
б
с
...
И нам нужно (например, х = 4)




б
b
b
b
c
c с
с

Answer 1

Пожалуйста, попробуйте это:

Sub pCreateMultipleTimes() 

    Dim strText    As String 
    Dim strOutput   As String 
    Dim intMultiplier  As Integer 
    Dim varTempData   As Variant 
    Dim lngLoop1   As Long 
    Dim lngLoop2   As Long 

    'Considering data to be in form so it will be in text 
    strText = "a b c" 

    ' x=4 
    intMultiplier = 4 

    'Split Text with space as delimiter and assign it to Variant 
    varTempData = Split(strText, " ") 

    'Loop through to create the final combination output 
    For lngLoop1 = LBound(varTempData) To UBound(varTempData) 
     For lngLoop2 = 1 To intMultiplier 
      strOutput = Trim(strOutput & " " & varTempData(lngLoop1)) 
     Next lngLoop2 
    Next lngLoop1 
    MsgBox "Your needed Output is: " & strOutput, vbOKOnly + vbInformation 

End Sub