如何用VBA做这个代码，求大神点进来看看

limai520

需求，根据C列的数字，复制出A的手机号码到D列，要求：C列的数据是多少，对应D列就复制多少个A列的手机号码，并每个号码用逗号隔开



自己简单的写了下但是提示错误，小白求助

Sub SplitC()
    Dim arr As Variant
    arr = Range("C1:C" & Range("C" & Rows.Count).End(xlUp).Row)
    Dim retarr As Variant
    ReDim retarr(0 To UBound(arr))
    For i = 0 To UBound(arr)
        Dim tmp As Variant
        tmp = Split(Range("A" & i + 1).Value, ",")
        Dim str As String
        For j = 0 To arr(i, 1) - 1
            str = str & tmp(j) & ","
        Next
        retarr(i) = Left(str, Len(str) - 1)
    Next
    Range("D1").Resize(UBound(retarr) + 1).Value = Application.Transpose(retarr)
End Sub

limai520

自己顶一下

limai520

Sub copyData()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Dim i As Long
    For i = 1 To lastRow
        Dim repeatTimes As Long
        repeatTimes = Cells(i, "C").Value
        Dim j As Long
        Dim copyData As String
        copyData = Cells(i, "A").Value
        For j = 1 To repeatTimes
            If j = 1 Then
                Cells(i, "D").Value = copyData
            Else
                Cells(i, "D").Value = Cells(i, "D").Value & "," & copyData
            End If
        Next j
    Next i
End Sub     
修改了下，可以实现了

半百

680926

=LEFT(REPT(A2&",",C2),LEN(REPT(A2&",",C2))-1)

680926

Sub t()
Dim arr
Dim i As Integer
Dim j As Integer
Dim str1 As String
arr = Range("a1", Range("c65536").End(xlUp))
For i = 2 To UBound(arr)
    For j = 1 To arr(i, 3)
        str1 = str1 & arr(i, 1) & ","
    Next
    Range("d" & i) = VBA.Left(str1, Len(str1) - 1)
    str1 = ""
Next
End Sub

gwjkkkkk

参与一下。。。

limai520

680926 发表于 2023-3-9 16:20
Sub t()
Dim arr
Dim i As Integer

大佬代码简单多了