辛全昌的个人资料

EXCEL-合并单元格对应区域数值的求和计算 Sub CalculateMergedCellSums() Dim ws As Worksheet Dim mergedRange As Range Dim cell As Range Dim sumF As Double Dim lastRow As Long Dim i As Long ' 设置工作表 Set ws = ThisWorkbook.Sheets("Sheet1") ' 获取最后一行 lastRow = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row ' 遍历D列 For i = 2 To lastRow ' 从第2行开始，假设第1行是标题行 ' 检查是否为合并单元格的起始单元格 If ws.Cells(i, 4).MergeCells Then ' 获取合并单元格区域 Set mergedRange = ws.Cells(i, 4).MergeArea ' 初始化和 sumF = 0 ' 计算合并单元格对应行的和 For Each cell In mergedRange ' 检查F列的值是否为数字 If IsNumeric(ws.Cells(cell.Row, 6).Value) Then sumF = sumF + ws.Cells(cell.Row, 6).Value End If Next cell ' 将结果写入G列的第一个单元格 ws.Cells(i, 7).Value = sumF ' 清除其他行的结果 For Each cell In mergedRange If cell.Row <> i Then ws.Cells(cell.Row, 7).ClearContents End If Next cell End If Next i MsgBox "计算完成！" End Sub 代码解释设置工作表： Set ws = ThisWorkbook.Sheets("Sheet1")：设置要处理的工作表。获取最后一行： lastRow = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row：获取D列的最后一行。遍历D列： For i = 2 To lastRow：从第2行开始遍历D列，假设第1行是标题行。检查是否为合并单元格的起始单元格： If ws.Cells(i, 4).MergeCells：检查当前单元格是否为合并单元格的起始单元格。获取合并单元格区域： Set mergedRange = ws.Cells(i, 4).MergeArea：获取合并单元格区域。初始化和： sumF = 0：初始化和为0。计算合并单元格对应行的和： For Each cell In mergedRange：遍历合并单元格区域。 If IsNumeric(ws.Cells(cell.Row, 6).Value)：检查F列的值是否为数字。 sumF = sumF + ws.Cells(cell.Row, 6).Value：将F列对应行的值累加到sumF。将结果写入G列的第一个单元格： ws.Cells(i, 7).Value = sumF：将计算结果写入G列的第一个单元格。清除其他行的结果： For Each cell In mergedRange：遍历合并单元格区域。 If cell.Row <> i Then：如果当前行不是起始行，则清除G列的值。 ws.Cells(cell.Row, 7).ClearContents：清除G列的值。示例数据假设你的数据如下：表格复制 A B C D E F 标题水果 10 水果 15 蔬菜 5 蔬菜 10 水果 20 运行调整后的代码后，G列应该只在每个合并单元格区域的第一行显示结果：表格复制 A B C D E F G 标题水果 10 25 水果 15 蔬菜 5 15 蔬菜 10 水果 20 20 注意事项备份数据：在运行VBA代码之前，建议备份你的数据，以防万一。调整工作表名称：如果你的工作表名称不是“Sheet1”，请在代码中将 Sheet1 替换为实际的工作表名称。测试代码：在运行代码之前，建议在小数据集上测试代码，确保其按预期工作。以上亲测有效，一小点问题就是结果不是生成在合并单元格对应第一行，而是最后一行

求助：让打印机每次打印都带有页码能否实现，具体方法，知识库求助：让打印机每次打印都带有页码能否实现，具体方法，知识库.如题。想统计打印机累计打印次数，打印位置可调，字体大小可调，字体灰度可调，页数可调，跨应用打印页码自动顺延。

如何创建一个扭转超过100圈的沿3D路径的异形弹簧如题

SolidWorks装配体曲线驱动阵列参数参考。以指定直径基圆画圆，以此生称螺旋线，拉伸生成曲面。装配体选择曲线驱动阵列命令，方向1选择螺旋线，分布数量是每圈个数*圈数，任意可调；下边间距是根据基圆直径+螺距为两直角三角形直角边得到的三角形斜边长度/每圈个数，如果只算直径/每圈个数，得到的阵列效果不好，害死强迫症。对齐方法选与曲线相切，面法线为基圆拉伸曲面，再选择你要阵列的零部件就等着它转转转圈圈圈过会就得到一个如上图完美的阵列。效果图可以看下边，是不是边在一条直线上。效果图快夸我

求助：电机选型实际问题麻瓜一枚遇到个电机选型问题麻爪了，求各路大神指点迷津。现有一均质圆柱体总重157kg，直径840mm，一水平旋转轴（摩擦系数0.12）通过重心为其提供旋转动力，使圆柱体旋转速度为1.5rpm，电机通过（减速机-）连杆-万向节-与旋转轴连接。Q1:水平旋转轴受到扭矩吗？水平轴提供的功率？该功率与电机（减速机）输出功率什么关系？Q2:减速机三级减速比1:64，负载转动惯量J1(kg.cm²) 96148 电机轴联轴器/小齿轮惯量J0(kg.cm²) 0.2 折算到电机轴惯量J"(kg.cm²) 24.15 最大允许惯量比 5 ，判断下述结果是否合理，若果不合理，设计合适的速比，最大允许惯量比需电机转子惯量J(kg.cm²) 4.83

三角形及多边形问题等边三角形外接圆以一定数值双向偏移定值，等边三角形也跟着双向偏移，问变化量外与变化量内的大小关系。拓展到多边形也是一样的结论么

求助：200宽72节距橡胶履带模型，主要是内齿，驱动齿/轮模型

钢丝轮求设计思路左图为钢丝轮剖面求如上尺寸1.97/3.93这一组尺寸理论计算正确值，配合6204轴承用。求诸位大神给个思路，例题网址，搜索关键词，完整解答均可。就是求动平衡状态轴承与红线上部位置关系，9r/s

求钣金刨槽懂哥指点多次正反折的刨槽四边盒子怎么展开，例如1.08不锈钢板要折出5/8/50/200/50/8/5的正方形盒子，刨剩0.5，折弯半径怎么设置，怎么画图

寻人寻美食：市直一区附近20年前有个建材市场开蛋煎饺铺的包子萱萱软软的，结了一层薄薄的蛋液嘎巴，当年卖3元16个，好像是不够吃还可以免费续两三个。有认识的么？不知大叔手艺传下来没有。哪里有好吃的蛋煎饺推荐一下啊#寻人##日照记忆#

需要小件加工有什么渠道？不同规格不同材质单件如题

高中至大学难度，求助大佬一个质量m半径为R的圆以速度v在水平面上做直线运动，遇到一个高度h的长方体，求此圆刚好能翻越到长方体上方时高度h与速度v关系.

有图，求真相。一个零件圆心与另个一零件基准轴重合？怎么做到的

奇怪的问题以及提问方式：可能涉及的关键词：参数多个零件外径相等，想让他们实现改变第一个文件零件外径，其他零件外径跟着改变，这是软件自带功能吗？叫什么功能？哪个按钮？能否举个栗子？截图也行。如果不是自带功能，能否实现？

求一条锦鲤，带SolidWorks动画

机械专精接各种小活，测量，设计，建模，出图，套料，制作等现场工作限日照本地，网络不限。周末开工，周一至周六晚上联系，直接回复本帖，或微 xqcfhjd

能否通过透视图求尺寸？如上图所示物体，量得一条短边尺寸为25，拍照实物尺寸发生透视如下图，要求上图？？处尺寸需要知道什么条件？如何构建指定角度偏转的透视体？

老萌新钣金问题求教 SolidWorks 一个矩形片1.5mm厚，怎么弄成图示形状？用哪些命令？图中左侧参考直径38 右侧32 矩形宽度50 总长90

SolidWorks模型练习小组，欢迎菜鸟加入，限20人回帖报名，名额有限先到先得。欢迎菜鸡互啄啊，共享云空间人均2G，上传下载分享

SolidWorks模型练习小组，限20人。菜鸟们速来 http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Feyun.baidu.com%2Fenterprise%2Finvite%3Fshort%3DqZOreR6&urlrefer=b34f11517fb0e37650eb6954682c5988

古建筑屋瓦怎么做？如图求源文件三条直边，一段圆周上的曲线

摩托车抱缸换四配套后冒青烟之前也冒青烟,,直到憋死好几次车,踩不动启动杆,找师傅维修后给换了四配套,说是化油器有问题往缸里窜汽油机油变稀,,,交车时交代我尽早再次更换机油,说是缸里很脏什么的,,,骑40公里回来才发现冒青烟呛人...第二天再骑注意看了看,刚开始启动不大冒烟,骑几里路就开始冒烟,,,, 这是在磨合么? 还是师傅没给换对型号?我可不可以要求师傅给免费维修好?我现在换了机油是不是就不再冒烟了?修好才跑了不到60公里

求一只爱犬拉拉,萨摩,金毛,大麦町,串了的也不要紧,稀罕极了,有没有人送我一只

求立体兔子图纸啊,老婆快生日了!!急用哪位老大有立体龙凤的图纸啊,也给小弟发一份吧 [email protected]

纯纯菜鸟俩眼一抹黑怎么玩啊，别跟我说秘籍告诉我最基础的操作，怎么砍木头，怎么杀羊，怎么采矿谁有这样的操作指南告诉我啊，有没有大神愿意指教？

双11我要买个表，求达人指点有没有参加过的达人？超奢品牌腕表也有秒杀么？不好抢那么超低折扣有木有？正品保障有木有？6000左右的表多少能拿下？

手机振动器是电机吧?那么问题来了手机振动器正常工作电压如何测量?如何使之实现一定角度转动?比如要求转动180°

自认数学厉害的进凸将此字延竖直方向中心线旋转(180°)成立方体(底面是平面),有一模板有100*100个凹槽,毎个凹槽都一样大,并恰好装得下此立方体.现有大量此产品,材质铁(可被磁铁吸起),需要批次装入此种模具(毎批次100模),求凹槽的最佳形状,比如凹槽深浅,凹槽上部加工成倒圆锥,角度,上底直径高度...更好的操作方案,产品尺寸变化时凹槽作何调整

仿真软件一堆半圆球放到一很多半圆凹槽的模板上,筛分直径↓内详菜鸟问一个菜鸟不懂的问题,求达人解答↑ 半球肯定不都是圆面朝下,废话一句.如果有100个凹槽,远超100个产品,一次成功率能有多少? 如果换成钉子与钉槽,能不能模拟计算一下成功率? 一个直径3高度5的圆柱与一个直径5高度3的圆柱组合成一个顶面同心的物体,暂命名为A,一个模板有许多槽可以顺利容得下A,名为A槽,A槽的深度对顺利装入A的成功率有什么影响,用这个SolidWorks能解决么?我大体看了一下只是机械运动,装配方面的,貌似这种散乱的东西,,,,如果不能求达人告知该用什么软件模拟计算成功率,消耗时间,等

怎样实现用12V电平给手机提供3.7V稳压电源请教,讨论求一个可行的方案

求证:自来水放久了不能喝?! 小时候在乡下老家喝的都是山泉水,甘甜好喝得很,放在缸里,放久了,缸里都会有绿意,在野外干活时口渴了,将就着浇菜园子的泉水也能灌一个饱,也没见喝了生病.长大了在城里安家,小区物业做得很糟烂,停水从来不带通知的.偶尔得知一回,存了一保温瓶生水,今天又碰上无端停水,也不知这水还能不能喝.搜了一下都说放几天就不能喝,也说放一个月的,我这保温瓶无污染又是密闭环境, 存的水也是不能喝么? 真的产生了亚硝酸盐? 洗菜能用么? 烧开了能喝么?

求大神指点考证之路刚拿了个中级电工证,想知道有什么证可以直接考,不用要求工作经验或不要求取得什么证书就能考的.本人大学学历,但是毕业几年早已把学到的大多还给老师了,那些公式或许还记得名字要弄懂还得重新学一遍

猪脚对苏沐橙是什么态度啊?蝴蝶在本吧坐镇么? 蝴大人,你会写到这一章节么?要是真有个人愿做自己的小尾巴,会有哪个男孩子不动心?求你让他们在将来某一章成了吧

求杂交繁育达人指导体型较大的公狗配体型较小的母狗,狗宝宝们长大后身高会偏向大狗还是小些的? 怎样杂交可以得到一只性格温顺躯干正常但是腿短的狗狗呢?

求大神给出个图圆锥螺纹, 我是菜鸟啊,特此声明!一根筋,就是......我也不懂都不知怎么表述.首端为半径7.5mm的圆球一部分,末端为直径35长100的圆柱体,首端圆心与末端圆心距200螺纹要求齿顶上是圆弧,齿底也是圆弧,如果有可能,设计成半径相等,否则尽量让两者半径接近,角度自定

转贴:#你知道么# 刚刚看到一个很有意思的问题:学习英语的好方法(... 学习英语的好方法_百度知道内容来自：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F327577999.html%23281447-tieba-1-21037-3e341a3f818ee52fbff9943fc62b238b&urlrefer=a3475235b94d0bc140b64816c2ccbbeb

寻加工商-来自日照采购信息材料：1、20mm长×10mm宽×1mm壁厚不锈钢矩形管 800mm长*8根 2、10mm宽×3mm厚×412mm长材质：铁* 4根（另要求注明使用Q235钢、硬铝材质的报价） 3、 ×510mm长材质：铁* 4根（要求同上） 4、100mm×45mm×18mm 材质： 45钢板*1线切割加工费：1、54mm外形×18mm厚材料4 数量8 2、74mm外形×18mm厚材料4 数量8 3、8mm外形×3mm厚度材料4 数量8 4、15.71mm外形×3mm厚度材料2 数量16开槽费：1、206mm长×6mm宽×厚度1mm 材料1 数量4 2、262mm长×6mm宽×厚度1mm 材料1 数量4 3、229mm长×6mm宽×厚度1mm 材料1 数量4 4、183mm长×6mm宽×厚度1mm 材料1 数量4说明：1、要求材料1、2、3按三点弯曲法压头压力达到50KG时材料变形可恢复 2、材料1用于制作滑块槽，材料2-3用于制作撑杆，材料4用于制作滑块 3、按材料满足用途需要及成本最低化，推荐可替代的2-4材料方案请将报价及详细联系方式发至[email protected]，我会及时与您取得联络

日照寻加工商采购信息材料：1、20mm长×10mm宽×1mm壁厚不锈钢矩形管 800mm长*8根 2、10mm宽×3mm厚×412mm长材质：铁* 4根（另要求注明使用Q235钢、硬铝材质的报价） 3、 ×510mm长材质：铁* 4根（要求同上） 4、100mm×45mm×18mm 材质： 45钢板*1线切割加工费：1、54mm外形×18mm厚材料4 数量8 2、74mm外形×18mm厚材料4 数量8 3、8mm外形×3mm厚度材料4 数量8 4、15.71mm外形×3mm厚度材料2 数量16开槽费：1、206mm长×6mm宽×厚度1mm 材料1 数量4 2、262mm长×6mm宽×厚度1mm 材料1 数量4 3、229mm长×6mm宽×厚度1mm 材料1 数量4 4、183mm长×6mm宽×厚度1mm 材料1 数量4说明：1、要求材料1、2、3按三点弯曲法压头压力达到50KG时材料变形可恢复 2、材料1用于制作滑块槽，材料2-3用于制作撑杆，材料4用于制作滑块 3、按材料满足用途需要及成本最低化，推荐可替代的2-4材料方案请将报价及详细联系方式发至[email protected]，我会及时与您取得联络

寻加工商采购信息材料：1、20mm长×10mm宽×1mm壁厚不锈钢矩形管 800mm长*8根 2、10mm宽×3mm厚×412mm长材质：铁* 4根（另要求注明使用Q235钢、硬铝材质的报价） 3、 ×510mm长材质：铁* 4根（要求同上） 4、100mm×45mm×18mm 材质： 45钢板*1线切割加工费：1、54mm外形×18mm厚材料4 数量8 2、74mm外形×18mm厚材料4 数量8 3、8mm外形×3mm厚度材料4 数量8 4、15.71mm外形×3mm厚度材料2 数量16开槽费：1、206mm长×6mm宽×厚度1mm 材料1 数量4 2、262mm长×6mm宽×厚度1mm 材料1 数量4 3、229mm长×6mm宽×厚度1mm 材料1 数量4 4、183mm长×6mm宽×厚度1mm 材料1 数量4说明：1、要求材料1、2、3按三点弯曲法压头压力达到50KG时材料变形可恢复 2、材料1用于制作滑块槽，材料2-3用于制作撑杆，材料4用于制作滑块 3、按材料满足用途需要及成本最低化，推荐可替代的2-4材料方案请将报价及详细联系方式发至[email protected]，我会及时与您取得联络

微（定）积分问题计算两相交圆柱体重叠部分体积 A圆柱体由Y=2.3这条直线围绕X轴旋转形成，即一直径为R=4.6的圆柱体，B圆柱体中心轴线为Y轴，半径r未知待求。当r为何值时，两圆柱体相交部分的体积V=(2r)*π*(（R/2）^2) 求r与R的关系表达式，V的值以及推导过程

寻人凌志香女山东工商学院外国语学院英语058班 2009 日照市岚山区黄墩镇凌家滩井 QQ120683412

筛选：初次接触，求教上学学没学过忘了，初见人家说有筛选很高兴，可是不会用。问题如下：在一个很多行的数据表里，求各个自然数出现次数，并在特定列如F:F显示数据表中所有出现过的数字。并在G:G列列出对应出现次数。回答可以简略，但必须能用。问题2：不知道属于什么问题啦*-* 要创建一个很多行的数据，有30000左右吧，在A:A列填充自然数1-30000，如果用填充往下拉得老大一会啦，怎么快速使数据表变成30000行呢？还有如果处理之后只需要20000行数据，怎么把那10000行剔除出数据表？我用清除内容删除格式等都不管用，也就是下拉条拉到底时还是会出现10000行的空行，怎样操作使下拉条到底时变成20000行呢？