我是VBA初学者,对拆分和复制感到震惊。
我有一本工作簿(book1),其中在A列中包含一些学生的姓名,在B列中包含一些支付学费的日期。有些名称有多个日期,而有些名称只有一个日期:
A ...... B。
卡卡......... 2018年10月7日
Thy ................................. 12/05/2018,15/08/2018,15/08/2018
然后,我想在另一个工作簿中搜索其名称,并将其整个行复制到新工作簿中。欢迎所有帮助;预先感谢。
答案 0 :(得分:0)
您可以以这种方式执行操作,尽管您没有显示自己的代码,但由于我对代码有所了解,所以我编写了自己的代码。
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
如果您觉得有帮助,请为我感到高兴,并投票给我,如果有任何疑问,请随时问我。
谢谢