下面是我在做筛选打印时录制的宏，用更简捷的相同功能代码吗

软件 2024-05-25

EXCEL 一键打印筛选宏 VB代码如图，按照表格第三行B列（客户名称）自动筛选，按筛选的所有结果分别打印

fori=3to100
ifi=3thenrange("a1:e3").printout
ifi>3then
rows(i).Hidden=false
range("a1:e"&i).printout
endif
next

EXCEL里面的“宏”怎么用？

1、通常首先添加“宏”选项。具体路径是单击左上角的Microsoft图标，然后选择：“Excel选项” - “常用”，选中“功能区显示开发工具”选项卡，然后您可以看到“开发”有一个选项“工具”在Excel选项卡中。

2、在Excel选项卡上选择“开发工具”，开始录制宏，选择B3单元格的文本[百度网页]，然后单击选择“录制宏”。

3、此时，将弹出“录制新宏”对话框。我们想要[百度网页]加粗和红色，因此宏的名称被命名为“粗体和红色”并同时设置。快捷方式可以让您轻松快速拨打电话。小编建议你使用大写字母的快捷键，最后点击“确定”按钮开始录音。

4、根据录制宏的目的，选择“开始”选项卡，在百度上执行粗体和红色操作。

5、完成后切换到“开发工具”选项卡，然后单击“停止录制”按钮。以这种方式，记录名为“粗体和红色”的宏。

6、宏录制好以后，就可以调用了，选中【百度经验】，使用刚才设定的宏快捷键Ctrl+Shift+Q，您将看到实现了粗体和红化的操作，这是快速调用宏的方法。

7、您也可以通过单击“开发工具”选项卡上的“宏”来执行此操作。首先选择[百度百科全书]单元格，然后单击“宏”按钮。

8、这将调出“宏”窗口，选择粗体带红色的宏，选择“执行”按钮，也可以调用宏。

请教一下，Excel宏，怎么用代码实现这个功能呀？

使用宏需要一定的基础，完全给出不用调试的代码需要给出原表的全屏图。

下面是根据帖子图片编写的程序代码：

注意，程序在模块里面，程序中的表名sheet1、sheet2需要自行修改，如果是在不同的EXCEL文件中，还应该写为workbooks("book1").sheets("sheett1")这样的格式。

下面是测试数据：

下面的测试数据运行产生的测试结果：

程序只产生A2开始的结果，标题行请自行添加。

最后强调，如果实际数据与帖子图片格式不同，例如数据开始行3，例如指标个数和列，那么代码需要适当的修改，希望自行理解代码的情况调整，代码文本如下：

Option Explicit

Sub 转换格式()

Dim arr1, arr2, i&, j&, n&

arr1 = Sheets("sheet1").UsedRange 'sheet1是原始数据表名，请自行修改

ReDim arr2(1 To UBound(arr1) * 5, 1 To 6)

For i = 3 To UBound(arr1) '原表正式数据从第3行开始，请检查确认

For j = 4 To 8

If arr1(i, j) <> "" Then

n = n + 1

arr2(n, 1) = arr1(i, 1)

arr2(n, 2) = arr1(i, 1)

arr2(n, 3) = arr1(i, 1)

arr2(n, 4) = arr1(2, j)

arr2(n, 5) = arr1(i, j)

arr2(n, 6) = arr1(i, 9)

End If

Next j

Next i

Sheets("sheet2").Range("a2").Resize(n, 6) = arr2 'sheet2是结果表名，请自行修改

End Sub

excel 宏代码怎么用

在介绍学习VBA之前，应该花几分钟录制一个宏。新术语：“宏”，指一系列EXCEL能够执行的VBA语句。以下将要录制的宏非常简单，只是改变单元格颜色。请完成如下步骤： 1)打开新工作簿，确认其他工作簿已经关闭。 2)选择A1单元格。调出“常用”工具栏。 3)选择“工具”—“宏”—“录制新宏”。 4)输入“改变颜色”作为宏名替换默认宏名，单击确定,注意，此时状态栏中显示“录制”，特别是“停止录制”工具栏也显示出来。替换默认宏名主要是便于分别这些宏。 ★ 宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。 5)选择“

求在excel中筛选状态下使用宏向下选择单元格的代码

怎么会用这样来向下呢？一般搜索单元格可以这样： Dim I As Long, J As Long For I = 1 To UsedRange.Rows.Count '第一行到最后一行 For J = 1 To UsedRange.Columns.Count '第一列到最后一列 Cells(I, J).Value Next Next 如果只搜索行，而列固定的可以这样： Dim I As Long For I = 1 To UsedRange.Rows.Count range("A" & i).value Next

标签：MicrosoftExcel MicrosoftOffice 信息技术 excel 代码