作者：绿色风
分类：
时间：2022-08-17
浏览：158
楼主
0Mouse |
Q：如何运用VBA求得指定位置指定数字串除去相应两个单元格中的数字串后的剩余数字串呢？
示例截图：
要求描述：
求T:U列最后四个非空单元格所在行的V列单元格数据：
计算要求为：
从01-14共14个数字中，减去T18和U18单元格的内容，剩余结果放置在V18中；
从01-14共14个数字中，减去T20和U20单元格的内容，剩余结果放置在V20中；
……
A：代码如下：- Sub 求得指定位置指定数字串除去相应两个单元格中的数字串后的剩余数字串()
- Dim i%, j%, k%, sr1 As Byte, sr2$
- i = Cells(Rows.Count, "T").End(xlUp).Row
- For j = i To 1 Step -1 '从下往上循环
- If k = 4 Then '处理四个单元格后则退出循环
- Exit For
- Else
- If Cells(j, "T") <> "" Then
- k = k + 1
- For sr1 = 1 To 14
- If InStr(1, Cells(j, "T") & Cells(j, "U"), Format(sr1, "00")) = 0 Then '连接T列和U列两个单元格的内容，在其中分别查找“00”～“14”，如果没找到则
- sr2 = sr2 & " " & Format(sr1, "00")
- End If
- Next
- Cells(j, "V") = Mid(sr2, 2)
- sr2 = ""
- End If
- End If
- Next
- End Sub
附件：
 求得指定位置指定数字串除去相应两个单元格中的数字串后的剩余数字串.rar
|
2楼
い卋玑┾宝珼 |
又是彩票 |
3楼
w83365040371 |
- =SUBSTITUTE(TEXT(SUM(LARGE(IF(COUNTIF(T18:U18,TEXT(ROW($1:$14),"!*00!*")),,ROW($1:$14)),ROW($1:$14))*100^(ROW($1:$14)-1)),"00 00 00 00 00 00 00"),"00 ",)
|
4楼
老糊涂 |
学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一