Question

我是VBA初学者，对拆分和复制感到震惊。

我有一本工作簿（book1），其中在A列中包含一些学生的姓名，在B列中包含一些支付学费的日期。有些名称有多个日期，而有些名称只有一个日期：

A ...... B。

卡卡......... 2018年10月7日

Thy ................................. 12/05/2018，15/08/2018，15/08/2018

然后，我想在另一个工作簿中搜索其名称，并将其整个行复制到新工作簿中。欢迎所有帮助；预先感谢。

Answer 1

您可以以这种方式执行操作，尽管您没有显示自己的代码，但由于我对代码有所了解，所以我编写了自己的代码。

Sub transferData()
    'Declare an array
    Dim LArray() As String
    'Start For loop
    For i = 1 To Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

        Sheets("Sheet2").Range("A" & i) = Sheets("Sheet1").Range("A" & i).Value
        'Check Condition for multiple date exits or not
        If (UBound(Split(Sheets("Sheet1").Range("B" & i).Value, ",")) > 0) Then

            LArray = Split(Sheets("Sheet1").Range("B" & i).Value, ",")
            'Split Date and store inside Array
            For j = 0 To UBound(LArray)

                Sheets("Sheet2").Cells(i, 2 + j) = LArray(j)

            Next j

        Else

            Sheets("Sheet2").Range("B" & i) = Sheets("Sheet1").Range("B" & i).Value

        End If

    Next i

End Sub

如果您觉得有帮助，请为我感到高兴，并投票给我，如果有任何疑问，请随时问我。

谢谢

如何拆分和复制其值

1 个答案: