excel中使用VBA将单元格的内容转为多行

2023年1月2日 46次阅读 来源: Ray昱成 
'功能实现：将sheet1中A1单元格的值拆分后 显示到sheet2的A列中
Private Sub Worksheet_Change(ByVal Target As Range)
 
 '只有A1单元格的值改变才会执行
 If Target.Address = "$A$1" Then

    '定义变量
    Dim x As Integer
    Dim sr As String

    '获取A1单元格的值,并拆分成数组
    sr = Cells(1, 1).Value
    Arry = Split(sr, ";")


    x = 0

    '先清空sheet2对应数据，从A1开始往下清空
    Do While x < 100
        x = x + 1
        Sheet2.Cells(x, 1).Value = Null
    Loop

    x = 0
    
    '再为sheet2重新赋值，从A1开始往下赋值
    For n = LBound(Arry) To UBound(Arry)
      x = x + 1
      Sheet2.Cells(x, 1).Value = Arry(n)
    Next n

End If
End Sub

    原文作者：Ray昱成
    原文地址: https://blog.csdn.net/yu8196378/article/details/78543509
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞