m0_59591343
2021-06-22 23:23
采纳率: 50%
浏览 13

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

 

  • 写回答
  • 好问题 提建议
  • 关注问题
  • 收藏
  • 邀请回答

2条回答 默认 最新

  • 碰碰虎 2021-06-22 23:50
    已采纳

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

      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
    已采纳该答案
    评论
    解决 1 无用
    打赏 举报
  • 碰碰虎 2021-06-22 23:38

    可以的,稍等一下下

    评论
    解决 无用
    打赏 举报

相关推荐 更多相似问题