如何让excel所有sheet执行该命令？

Question

Private Sub kbiji()
Dim i As Range
For Each i In ActiveSheet.UsedRange
If i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Then
i.MergeArea.Select
i.MergeArea.UnMerge
Selection.FillDown
End If
Next i
End Sub

Answer 1

最外围再套一个For循环，循环所有Sheet就好了。
Private Sub kbiji()
Dim I As Range, J As Worksheet
For Each J In Worksheets
For Each I In J.UsedRange
If I.Address <> I.MergeArea.Address And I.Address = I.MergeArea.Item(1).Address Then
I.MergeArea.Select
I.MergeArea.UnMerge
Selection.FillDown
End If
Next
Next
End Sub

Answer 2

要在每个表格的VBA中worksheet方法中调用该过程 语句为CALL aa(); 但调用肯定您在什么条件下进行调用,要选择合适的worksheet的方法. Sub aa() dim sh as w。

Answer 3

选择要统计的数据区域，在菜单中执行：Data---PivotTable and PivotChart---PivotTable---Layout（设置行、列、数据），并确认。关键是布局，要设置好。求知：如何快速创建数据透视表。创建数据 首先，在 Excel 工作表中创建数据。您可以将现有电子表格或数据库中的数据导入新的 Excel 工作表。确保数据可用于数据透视表：删除任何空行或空列。删除所有自动小计。确保第一行包含每列的描述性标题。确保每一列只包含一种类型的数据——例如，一列中的文本和另一列中的数值。启动数据透视表和数据透视图向导 在 Excel 工作表中，从要从中创建数据透视表报表的表中选择一个单元格。在数据菜单上，单击数据透视表和数据透视图以启动数据透视表和数据透视图® 向导。如果我不能选择数据透视表和数据透视图怎么办？如果工作簿是共享的（共享工作簿：允许网络上的多个用户同时查看和修改的工作簿。保存工作簿的每个用户都可以看到其他用户所做的修改。），“数据透视表和数据透视图命令是不可用。在数据透视表和数据透视图向导 - 第 1 步（共 3 步）中，在“请指定要分析的数据的数据源类型：”下，单击 Microsoft OfficeExcel 列表或数据库。在“您要创建的报表类型：”下，单击数据透视表。单击完成。 Excel 会在您的工作簿中插入一个新工作表，其中包含报表的布局区域（即数据透视表工具栏）和数据透视表字段列表。开始构建你的数据透视表 将Category字段从PivotTable Field List拖到PivotTable的“Drag Row Fields Here”区域。不用担心放错字段，您可以稍后移动它们。请注意，向导会自动使用工作表中“类别”列中的数据填充行。此外，数据透视表字段列表中使用的字段以粗体显示。如果我在行中没有看到带有“类别”的数据透视表的数据透视表字段列表怎么办？如果您没有看到数据透视表字段列表，请单击概述的布局区域。如果您仍然看不到它，请单击数据透视表工具栏上的显示字段列表按钮。数据透视表工具栏在哪里？工具栏应显示为浮动在工作表上或停靠在一边。如果未显示工具栏，请单击“查看”，指向“工具栏”，然后单击“数据透视表”。向报表添加数据将包含您要汇总数据的字段，例如从数据透视表字段列表拖到数据透视表的“将数据项拖放到此处”区域的金额字段。数据透视表现在显示每个类别的总成本。具有类别和费用总计的数据透视表 将页面排序字段添加到报表 要按类别过滤数据，您可以在页面顶部创建一个下拉箭头。

Answer 4

在Excel工作簿中,我有两张结构相似的工作表。 为了使某些过程自动化,我编写了一个简单的VBA代码,它可以执行以下操作: 将文本格式转换为范围内的数据