一个简单的VB代码，用于分割数据

最新推荐文章于 2023-04-26 09:03:47 发布

cuntou0906

最新推荐文章于 2023-04-26 09:03:47 发布

阅读量381

点赞数

分类专栏： ▶ Tool 文章标签： VB Excel

本文链接：https://blog.csdn.net/weixin_44231148/article/details/129960849

版权

▶ Tool 专栏收录该内容

17 篇文章 0 订阅

订阅专栏

这段VBA代码用于遍历工作簿中的每个工作表，对A1单元格开始的区域进行处理。它首先清除数组，然后读取工作表数据，替换特定字符并拆分单元格内容。如果单元格不为空，内容将被写入新数组。最终，新数组的内容会被写回F3单元格开始的位置，创建处理后的数据结构。

摘要由CSDN通过智能技术生成

Sub SplitData()
    Dim NewArr(1 To 200, 1 To 2)
    For Each sht In ThisWorkbook.Worksheets
       Erase NewArr
       arr = sht.[a1].CurrentRegion
       'arr = sht.Range("a1:b10")
       
       If (IsEmpty(arr)) Then            '空表处理
          sht.Delete
       Else
                  
           NewArr(1, 1) = arr(1, 1)       '拷贝表头
           NewArr(1, 2) = arr(1, 2)
           k = 2
           
           For i = 2 To UBound(arr, 1)
           
               adt = Replace(arr(i, 2), "，", "、")  '替换
               adt = Replace(adt, "。", "、")
               adt = Replace(adt, ".", "、")
               adt = Replace(adt, ",", "、")
               
               If (Len(adt) > 0) Then               '单元格不为空
               
                   adt_list = Split(adt, "、")       '拆分
                   
                   For j = 0 To UBound(adt_list, 1)   '循环写入
                   
                        If (Len(adt_list(j)) > 0) Then  '避免开头和结尾是标点
                        
                            NewArr(k, 1) = arr(i, 1)
                            NewArr(k, 2) = adt_list(j)
                            k = k + 1
                            
                        End If
                        
                   Next
                   
               End If
               
           Next
           
           sht.[f3].Resize(UBound(NewArr, 1), 2) = NewArr
           
       End If
       
     Next
    
End Sub