2024年3月13日发(作者：)

1. 拆分单元格赋值

Sub 拆分填充()

Dim x As Range

For Each x In

If ells Then

e

=

End If

Next x

End Sub

2. Excel 宏 按列拆分多个excel

Sub Macro1()

Dim wb As Workbook, arr, rng As Range, d As Object, k, t, sh As Worksheet, i&

Set rng = Range("A1:f1")

Updating = False

yAlerts = False

arr = Range("a1:a" & Range("b" & ).End(xlUp).Row)

Set d = CreateObject("nary")

For i = 2 To UBound(arr)

If Not (arr(i, 1)) Then

Set d(arr(i, 1)) = Cells(i, 1).Resize(1, 13)

Else

Set d(arr(i, 1)) = Union(d(arr(i, 1)), Cells(i, 1).Resize(1, 13))

End If

Next

k =

t =

For i = 0 To - 1

Set wb = (xlWBATWorksheet)

With (1)

.[A1]

t(i).Copy .[A2]

End With

Filename:= & "" & k(i) & ".xlsx"

Next

yAlerts = True

Updating = True

MsgBox "完毕"

End Sub

3. Excel 宏 按列拆分多个sheet

在一个工作表中是许多的公司订单记录，如何将它按公司名分拆成一个个工作表，用VBA

实现相当便捷。以下是演试：

原始工作簿：

运行VBA代码后的工作簿：

代码如下：

1. 需要先把数据按照分拆的那一列字段排序

2. 如果你想应用在你的表格中，只需将所有resize(1,3)中的3修改，改成你的表格的列

数。如果你总表有8列就改成resize(1,8)即可

3. 如果你想根据表格的第一列拆分，需要把(i, 2) <> (i - 1, 2)和

= (i, 2)的2换成1

Sub s()