Excel条件赋值问题,需要一个vba宏

在一个excel表格中,基本都是两行或三行合并单元格,需要在每行中,L格内容为“通过”时,在M格输入内容“无”,希望大神给个宏啊!完整的直接贴过去就能用的!非常感谢!... 在一个excel表格中,基本都是两行或三行合并单元格,需要在每行中,L格内容为“通过”时,在M格输入内容“无”,希望大神给个宏啊!完整的直接贴过去就能用的!非常感谢! 展开
 我来答
madmlwt
2012-11-27 · TA获得超过238个赞
知道小有建树答主
回答量:292
采纳率:100%
帮助的人:223万
展开全部
问题叙述不明确!
假定L列合并单元格L3:L5,M列合并单元格M3:M4。也就是说合并区域的起始单元格在同一行,那么可以在工作表事件中粘贴如下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If [L2] = "通过" Then [M2] = "无"
End Sub
注意:如果合并单元格区域的起始行不是第2行,则修改代码中行2为实际行数即可!
仅供参考。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
太极健1969
2012-11-27 · TA获得超过9030个赞
知道大有可为答主
回答量:8668
采纳率:69%
帮助的人:3563万
展开全部
按你的条件用if写入数据
请讲清问题,否则没法知道你什么条件,赋什么值到什么位置。
你L和M列有合并单元格?
sub test ()
dim i&,x&
i=range("L65536").end(xlup).row
for x=1 to i
if cells(x,12)="通过" then cells(x,13)="无"
next x
end sub
追问

都是整行合并的单元格,基本就是希望达到这种效果,现在的M列是空白,如果L列的值是” 通过“ ,就在M列填一个 “无”

本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
余余1982
2012-11-27 · 知道合伙人软件行家
余余1982
知道合伙人软件行家
采纳数:1627 获赞数:4040
从事现场管理及相关计划数据等统计。 熟悉office办公软件(公式、VBA等)的使用。

向TA提问 私信TA
展开全部
这个不难,但是你要把要求说明清楚,最好有相同格式的文件,模拟你要的效果。
可以的话,把文件发过来帮你写一个。发到企鹅邮箱 815850733
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式