各位老师在您百忙中还得麻烦您向您咨询问题不好意思打扰了最近我老是身体进凉风胳膊老是冰凉是什么病健康，白天晚上随时，身体进凉风，浑身没劲，没诊治
(window.slotbydup=window.slotbydup || []).push({
id: '643393',
container: s,
size: '990,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '1123876',
container: s,
size: '990,110',
display: 'inlay-fix'
名医在线回答
每周三下午，邀请广州市三甲医院副主任级别以上医师，在线一小时免费解答网友疑问
千万个答案
已解答网友超过1千万个问题，并有多个医生对同个问题进行不同解答，提供多个解决方案查看: 1946|回复: 11
求VBA选择代码
阅读权限20
在线时间 小时
求已用单元格区域最后一行的代码和未用单元格区域第一行的代码。
请您指点，谢谢！
[ 本帖最后由 shshly 于
00:24 编辑 ]
在线时间 小时
〖Excel Home友情提示〗
很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！
通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：
1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。
为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：
* 发帖的技巧：
* EH技术论坛的最佳学习方法：
阅读权限20
在线时间 小时
谢谢你的指点。
阅读权限95
在线时间 小时
把excel文件压缩上传，手工做个结果示意一下，方便大家理解。
阅读权限20
在线时间 小时
谢谢您的建议把附件上传
求单元格和工作表变量的VBA代码，谢谢！
[ 本帖最后由 shshly 于
20:17 编辑 ]
20:17 上传
点击文件名下载附件
13.99 KB, 下载次数: 22
阅读权限95
在线时间 小时
一个问题很难表述吗？请问楼主你要达到什么样的结果？
阅读权限100
在线时间 小时
的确问题看不懂。
阅读权限20
在线时间 小时
谢谢各位老师的耐心
我刚学VBA问题说的不准确，非常感谢上面几位老师的耐心。
我想做的事在附件里用手工做了一些，以表明我的意图，恳求各位老师帮忙用VBA自动地去完成。不知可行不可行？谢谢您了！
[ 本帖最后由 shshly 于
20:18 编辑 ]
20:18 上传
点击文件名下载附件
13.99 KB, 下载次数: 23
阅读权限100
在线时间 小时
注意：我把原来的N列删除了。
Sub qz()
Dim i&, Myr&, Myc%, Arr, Arr1
Dim Sht As Worksheet, j&, m&
Application.ScreenUpdating = False
Sheet1.Activate
Myr = [a65536].End(xlUp).Row
Myc = [iv14].End(xlToLeft).Column
Arr1 = Range(&a14&, Cells(Myr, Myc))
Arr = Range(&a14:f& & Myr)
For i = 2 To UBound(Arr)
& & For j = 10 To UBound(Arr1, 2) Step 2
& && &&&If Arr1(i, j) && && Then
& && && && &Set Sht = Sheets(Arr1(i, j))
& && && && &m = Sht.[a65536].End(xlUp).Row + 1
& && && && &Sht.Cells(m, 1).Resize(1, 6) = Application.Index(Arr, i, 0)
& && && && &If Arr1(1, j + 1) = &收入金额& Then
& && && && && & Sht.Cells(m, 8) = Arr1(i, j + 1)
& && && && &Else
& && && && && & Sht.Cells(m, 9) = Arr1(i, j + 1)
& && && && &End If
& && && && &If m = 15 Then
& && && && && & Sht.Cells(m, 10).Formula = &=rc[-2]-rc[-1]&
& && && && &Else
& && && && && & Sht.Cells(m, 10).Formula = &=r[-1]c+rc[-2]-rc[-1]&
& && && && &End If
& && &&&End If
& & Next
Next
Application.ScreenUpdating = True
End Sub
复制代码
阅读权限20
在线时间 小时
楼上的朋友好真是太感谢您了
谢谢您的帮助，您的代码使我看到了希望，我想应该离成功不远了吧。
我经过测试出现：【运行时错误”9“ 下标越界】的提示，代码高亮显示停在【Set Sht = Sheets(Arr1(i, j))】这段代码处了，我还真不懂这是什么意思，也拿不出什么解决的办法，还得麻烦您在百忙中指导解决问题。再次衷心地谢谢您！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师副主任医师
本站已经通过实名认证，所有内容由区煦东大夫本人发表
细菌性阴道炎
状态：就诊前
&副主任医师
区煦东大夫给您的回复：根据您提供的情况，您做了白带检查到有“线索细胞+”“加特纳菌2+”是提示您现在患“细菌性阴道病”。治疗细菌性阴道病（细菌性阴道炎）只需要口服广谱抗生素连续14天就能治愈。在口服抗生素期间不需要在阴道内用药或外阴洗药，否则会使得口服抗生素治疗无效。您所提及的药物对治疗细菌性阴道病（细菌性阴道炎）没有疗效。
在服完14天的广谱抗生素后再过7天就可以复查白带。如果您做了白带检查，在白带里面没有检查到有（上述的）致病菌或霉菌的话，就是治愈了霉菌性阴道炎了，就无须再用药。否则就是过度用药。过度用药也会造成阴道粘膜或外阴皮肤粘膜的损伤，产生瘙痒的感觉。过度用药也会影响到阴道内的正常菌群无法恢复，再次发生霉菌性阴道炎或导致细菌性阴道病的发生，得不偿失！请您参看我在本网页上已经发表的有关的的科普文章的有关内容。
状态：就诊前
太感您了，让您在百忙之中还给我回复，麻烦再问您一下广谱抗生素药名是什么啊，还有我当时做的白带常规，能把治病菌都全查出来吗？到时候真去复诊，需要查白带常规里的哪几项正常就可以了呢，是不是那个广谱抗生素在月经期间不能吃，再等月经过后继续吃，还是等到月经以后再连续吃啊？还有我当时检查的时候做了彩超，子宫，后位，轮廓清晰，大小形态正常，肌层回声均匀，宫腔波清晰，内膜厚0.8cm,双附件未见明显异常回声，盆腔内未见异常血流信号，子宫直肠窝处可见深径为1.0cm，液性暗区显示，这个严重吗？这个检查离来月经半个月左右的，万分感激帮我回复
&副主任医师
区煦东大夫给您的回复：根据您提供的您做的彩超检查的报告是属于完全正常的检查结果，您所提及的检查到有“子宫直肠窝处可见深径为1.0cm，液性暗区显示”是属于完全正常的生理性积液，请您参看我在本网页上已经发表的有关的的科普文章的有关内容。服用广谱抗生素治疗细菌性阴道病必须连续14天，就算是在月经期也不要停药。根据国家卫生部的法规规定：抗生素必须凭医生的处方购买，所以建议您到政府办的医院，最好是三甲医院找妇产科医生就诊开药。每一位政府办的医院的医生都懂得那些药物是属于广谱抗生素。
状态：就诊前
区医生，再次感谢您，耐心的回复，肯请您告诉我像我这种线索细胞＋,加特纳杆菌两个加号的细菌性阴道炎，具体哪两种抗生素，具体药名，关健现在像您这么有医德的医生太少了，他们只会开塞的和洗的药，再问一下，吃这些抗生素会不会有副作用啊？会不会再引起霉菌感染啊？用不用再同时补点什么维生素啊？请您告诉我具体药名，谢谢
&副主任医师
区煦东大夫给您的回复：根据国家卫生部的法规规定：抗生素必须凭医生的处方购买，建议您到政府办的医院，最好是三甲医院找妇产科医生就诊开药。每一位政府办的医院的医生都懂得哪些药物是属于广谱抗生素的。
状态：就诊前
区医生您好，我想咨询一下，我自从生完孩子（孩子现在已经三岁了）后就月经不正常，这个月提前，下个月就推迟，不过范围都在7天以内，如这个月是提前一天，下个月可能就提前6天了，并且来月经的时候第一，二天多，第三天就少了，第四，五几乎就没有了，来的第一天有点肚子疼，但不厉害，这些正常吗
&副主任医师
区煦东大夫给您的回复：如果您现在不想需要尽快再次怀孕的话，您的月经情况是无须专门治疗的。等到需要怀孕的时候在做具体的检查。
状态：就诊前
谢谢您，区医生，我想再问一下我这种月经情况会影响身体健康不，还是说身体别的器官有毛病？再或者时间长了会不会自愈？会不会造成月经不调或内分泌失调什么的？需要吃点什么调理吗？谢谢您了，恳请您百忙之中一一回答
&副主任医师
区煦东大夫给您的回复：您的月经情况只是提示您很难怀孕而已，对身体的其它系统没有影响。
副主任医师
区煦东大夫通知出停诊:区煦东主任从3月22日（周三）开始至4月1日（周六）期间停诊。请需要在该时间段来就诊或复诊的患者提前来就诊或推迟来就诊，不便之处，敬请原谅！
大夫郑重提醒：因不能面诊患者，无法全面了解病情，以上建议仅供参考，具体诊疗请一定到医院在医生指导下进行！
1.扫码下载好大夫App
2.点击中的"免费咨询"描述病情
3.成功后，医生会在24小时之内回复
疾病名称：霉菌性阴道炎&&
希望得到的帮助：确诊是否是霉菌性阴道炎
病情描述：外阴瘙痒，白带黄白相间，量不多，有时外阴有点疼痛的感觉，没有化验过分泌物，想预约挂号但点不开，想这周三去找您看看
疾病名称：白带带血&&
病情描述：女,22岁。之前霉菌，现在好了，白带带血和褐色，现在褐色也没了，白带也正常了，
——以上来自于日的病历记录
疾病名称：宫颈糜烂&&
希望得到的帮助：请医生给我一些治疗上的建议,是否需要就诊?就诊前做哪些准备？
病情描述：浙二普通门诊看的，医生说是重度宫颈糜烂，宫颈肥大，宫颈肥大是炎症长期刺激结果，因为有炎症所以白带不可能很好......
疾病名称：细菌性阴道炎&&
希望得到的帮助：请医生给予治疗建议
病情描述：脓性白带，有时发黄，会痒，还有一度宫颈糜烂
疾病名称：宫颈锥切后复查和阴道炎&&
希望得到的帮助：我想彻底治好阴道炎
病情描述：杨主任您好！我已经面诊过了，来您这报到。2016年3月在北京妇产医院由孔为民主任做了宫颈锥切术，6月12日和10月24日一直在杨主任处复查两次tct和hpv都正常。这次复查做的阴超b超大夫说有个小结节...
投诉类型：
投诉说明：（200个汉字以内）
区煦东大夫的信息
不孕不育症，子宫内膜异位症，多囊卵巢综合征，月经失调、更年期综合征、妇科炎症、性转播疾病，乳腺疾病的...
区煦东，男，副主任医师，副教授，长期从事妇产科临床及研究工作，对不孕不育症，子宫内膜异位症，多囊卵巢...
区煦东大夫的电话咨询
90%当天通话，沟通充分!
妇科可通话专家
北京协和医院
副主任医师
山西省儿童医院(山西省妇幼保健院)
中医科学院眼科医院
郑大一附院
副主任医师
北京协和医院
副主任医师
上海红房子医院路，十分感谢在您的多次帮助下我知道了很多，对您的感激我真不知怎么表达才好，总之谢谢您了，他的出生的时区比北京晚一个小时是东7区
全部答案（共1个回答）
忙着呢，下次再找吧。
最近这段时间流年海王星在他的夫妻宫刑本命月亮和天王，因此他在夫妻关系上内心感到迷茫，有要产生分离的念头。劝各自好好反省，多多迁就对方，经过磨合期就好，离婚的可能...
财运和仕途都比较不错,今年仍有大吉星入局四方得财,能够升职加薪.可以好好把握机会.有贵人帮助,但小人较多,切勿得意忘形.要打她人际关系.,感情方面比较差,容易产...
于老师是易学专家，贾老师是命理学专家。路老师是占星专家
答: 嚣张的射雕手遇见汉朝第一神射手当然没辙，当场被李广射死两个，活捉一个
答: 星座是按身份证年月日[阳历]来算,1999年农历4月初8,阳历日期日，星座就是 双子座：5月22日～6月21日
答: 人为什么活着？这是一个比前年虫还古老的问题。
首先问题本身就有问题！很简单的语法上的歧义：人为什么要活着和人为什么而活着。也可以说一个是意义，一个是目的。 ...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区}