能不能用vba实现ab列数据变成de列数据样式

Question

 

Answer 1

实现了，你可以测试一下，有什么问题可以告诉我，如果可以用的话请帮忙点一下采纳，谢谢！

  Dim FinalRow As Integer
  FinalRow = Range("A65535").End(xlUp).Row
  
  Dim strContent As String
  Dim intRow As Integer
  intRow = 1
  
  For i = 1 To FinalRow
    strContent = Cells(i, 2).Value
    Dim strSplit() As String
    strSplit = Split(strContent, ",")
    For j = 0 To UBound(strSplit)
      If strSplit(j) <> "" Then
        Cells(intRow, 4).Value = Cells(i, 1).Value
        Cells(intRow, 5).Value = strSplit(j)
        intRow = intRow + 1
      End If
    Next
  Next