摘要：
数据源如AB列，达成效果如DE列： 代码如下： Sub Sample() Dim MyRow As Long, MyTRow As Long, MyBRow As Long Dim MyFind As Range MyBRow = Cells(Rows.Count, 1).End(xlUp).Row 阅读全文
posted @ 2022-03-07 21:34
熬肥妖
阅读(495)
评论(0)
推荐(0)
摘要：
问题：计算每个小组长有多少户，相同住址为一户 解决： 添加辅助列：=IF(D2=D1,F1,IF(E2=E1,F1+1,1)) 统计公式：=MAXIFS(F:F,E:E,I3) 直接使用公式： {=COUNTA(UNIQUE(FILTER(D2:D43,E2:E43=I3)))} 阅读全文
posted @ 2022-03-05 21:49
熬肥妖
阅读(574)
评论(0)
推荐(0)
摘要：
问题：引用各工作表中指定数据 解决： =INDIRECT("'"&T3&"'!J7") 阅读全文
posted @ 2022-03-05 21:44
熬肥妖
阅读(52)
评论(0)
推荐(0)
摘要：
问题：批量生成超链接，链接到同一工作簿内的所有工作表 解决： =HYPERLINK("#'"&T3&"'!a1",T3) 阅读全文
posted @ 2022-03-05 21:42
熬肥妖
阅读(408)
评论(0)
推荐(0)
摘要：
问题： 数据透视表中日期列组合后，切片器会多出些没有数据的内容，如何去掉？ 解决：选取切片器》选项》切片器设置》隐藏没有数据的项》确定 阅读全文
posted @ 2022-03-05 21:39
熬肥妖
阅读(1056)
评论(0)
推荐(0)
摘要：
问题：相乘的两数中存在文本导致结果出错。 解决：借助于N函数 =N(A2)*B2 阅读全文
posted @ 2022-03-05 21:34
熬肥妖
阅读(37)
评论(0)
推荐(0)
摘要：
同一文件夹内N个工作簿，每个工作簿中一个工作表，最终合并到一个工作簿内分工作表显示的代码。 假设放置以下代码的文件命名为“合并.xlsm“，并与待合并文件在同一文件夹内。 Sub Sample() Application.DisplayAlerts = False Dim MyWb As Workb 阅读全文
posted @ 2022-03-04 14:43
熬肥妖
阅读(492)
评论(0)
推荐(0)
摘要：
实际这个问题不需要用VBA，因为可以直接选取所有工作表后再开始打印，但如此一来页码的设置会出现问题。 例如一个工作簿内共12个工作表，每个工作表单独打印页码为1-2页不等，全部选取后一起打印，页码会完全连续，如第三个工作表应该是“第1页，共2页”，却显示成了“第4页，共20页”这样的。 Sub Pr 阅读全文
posted @ 2022-03-04 14:22
熬肥妖
阅读(734)
评论(0)
推荐(0)
浙公网安备 33010602011771号