[能否讲几个自创哄人开心笑话给我听听]男子提着水果站在门口 ：“伯母您好，我是您儿子的男朋友。” “孩儿他爸！你快出来！”，说完倒地不起…闻声出来的孩儿他爸在看到他的一瞬间，定住…久久之后：“这么多年，你，连口味都换了...+阅读

Sub hjs()Dim irow, irow1, i, j As IntegerDim H As New CollectionDim sht As WorksheetDim ADim ICol'以上部分为定义变量Set A = ActiveCell'给变量A赋值当前单元格对象Application.ScreenUpdating = False'禁止刷新Application.DisplayAlerts = False'禁止弹出警告For Each sht In Sheets'建立工作表循环，把表名不是叫“总表＂的工作表删除If sht.Name＂总表＂ Then sht.Delete '删除所有分表NextSheets（＂总表＂）.Copy Before:=Sheets(1) '加入新表来操作，以防破坏原数据中的公式或格式ICol = Application.InputBox（＂请输入你所要分的列：（如按B列分请输入2）＂， ＂提示：＂， ＂2＂, Type:=1）'输入框If ICol = ＂＂ Then Exit Sub'输入数据为空时，退出程序Fneiwai = Application.InputBox（＂请确定是表内还是表外，A为表外，B为表内＂， ＂提示：＂， ＂B＂）'输入框If Fneiwai = ＂＂ Then Exit Sub'没有输入数据时，退出程序On Error Resume Next'有错误时跳过错误，相当于跳过错误，执行下一步With Sheets（＂总表 （2）＂)irow = .[a1].CurrentRegion.Rows.Count'得到总表（2）的最大行号For i = 2 To irow'从第二行开始运行到最后一个非空行.Cells(i, ICol) = ＂'＂ & .Cells(i, ICol) '在原工作表生成文本符号NextFor i = 2 To irowH.Add .Cells(i, ICol), CStr(.Cells(i, ICol))Next '建立一个不重复的筛选条件If Fneiwai = ＂A＂ Then '判断是表外分开时Path = Application.ActiveWorkbook.Path'得到当前工作簿的存放路径For i = 1 To H.Count.Cells.AutoFilter field:=ICol, Criteria1:=H(i)Set Nw = Workbooks.Add'建立新工作簿.[a1].CurrentRegion.Copy [a1] '自动筛选，并复制到新建的表中irow1 = [a1].CurrentRegion.Rows.CountFor t = 1 To [a1].CurrentRegion.Columns.CountCells(1, t).ColumnWidth = .Cells(1, t).ColumnWidthNext t '复制列宽For j = 2 To irow1Cells(j, ICol) = Right(Cells(j, ICol), Len(Cells(j, ICol)）） '消除新工作表文本符号Next jNw.SaveAs Filename:=＂E:\＂ & H(i) & ＂.xlsx＂'另存为工作簿Nw.Close True.Cells.AutoFilter'设置自动列宽Next iElseIf Fneiwai = ＂B＂ Then '判断为表内分开时For i = 1 To H.Count.Cells.AutoFilter field:=ICol, Criteria1:=H(i)Sheets.Add(after:=Sheets(Sheets.Count)).Name = H(i).[a1].CurrentRegion.Copy Sheets(CStr(H(i))).[a1] '自动筛选，并复制到新建的表中irow1 = [a1].CurrentRegion.Rows.CountFor t = 1 To [a1].CurrentRegion.Columns.CountCells(1, t).ColumnWidth = .Cells(1, t).ColumnWidthNext t '复制列宽For j = 2 To irow1Cells(j, ICol) = Right(Cells(j, ICol), Len(Cells(j, ICol)）） '消除新工作表文本符号Next j.Cells.AutoFilterNext iEnd If.Delete '操作表此时已多余，故删除End WithA.Parent.Activate '激活汇总表的原来激活的单元格A.ActivateApplication.DisplayAlerts = True'恢复警告Application.ScreenUpdating = True'恢复自动刷新End Sub

以下为关联文档：

初学化学怎样掌握化学式中元素符号书写顺选择B 解析： A、2H表示2个氢原子，故A不符合题意； B、2H2表示2个氢分子，故B符合题意； C、H2表示1个氢分子，故C不符合题意； D、CH4表示1个甲烷分子，故D不符合题意； 故选B. 概念： 用元素...

CAD制图初学入门该从哪做起CAD制图初学入门可以先从基础懂得分辨设计的对象以及软件的熟悉做起，之后再基础掌握基础的操作以及设计流程： 1、基础懂得分辨设计的对象以及软件的熟悉想要用CAD做好图，首先就...

想学古典吉他国内有哪些好的品牌初学不想要太贵的 1000元的吧求推首先古典吉他是一门正规的乐器，在音乐学院是有这个专业的，古典吉他在世界上虽然比不上钢琴和小提琴，但是也是有一定地位的。学习古典吉他首先可以培养孩子的耐心，通过学习古典音...

电脑怎么做表格初学者入门教程按照下面的方法，你也可以做到的： 在Excel中做界面式表格必须的步骤，设置统一背景色，渐变要比一般的单色更美观，字体格式要和背景色协调，添加图标下面说明文字，使整个表格颜色要保持...

热邪内郁症和类风湿性关节炎有什么区别能否治风湿性关节炎是风湿热的一种表现。风湿热是由A组乙型溶血性链球菌感染所引起的全身变态反应性疾病，病初起时常有咽峡炎、丹毒等感染病史。风湿热起病较急，且多见于青少年。风...

有什么书适合零基础的素描初学者给你推荐几本当初我觉得特别好的书 局部素描 完美教学 教学对话 央美50年 一.构图和基本形。 1。构图：由于在阅卷时不能把每一张试卷都放到远处去看，所以，在常规的构图要求前提...

葫芦丝初学者怎样入手一、 气（呼吸方法） 1、不提肩、不挺胸、口鼻通、不出声； 气下沉、丹田功、音柔美、颤常用。 2、高音缓、低音急、轻呼能出筒音3 3、吹长音时要做到： 音头不能软、音体不能板、音...

固定资产能否抵扣增值税一、能。 二、固定资产进项税额抵扣等增值税政策通知： 1、自2018年1月1日起，纳税人租入固定资产、不动产，既用于一般计税方法计税项目，又用于简易计税方法计税项目、免征增值税...

笛子的初学者应该怎样学习呢吹奏入门 吹笛是用口将气息吹进笛子的吹孔而发出的声音。吹响它的方法要领如下： 1.嘴唇自然闭合，双手捧着笛子两端， 笛子吹奏指法 左手握笛头，右手握笛尾，将吹孔置于下嘴唇下沿，对...