请高手帮忙 在excel中编程 if 语句
作者&投稿:柴备 (若有异议请与网页底部的电邮联系)
1.假设在sheet1的A1中显示
2.则在A1单元格中输入以下公式
=IF(OR(COUNTIF(Sheet2!$1:$65536,"不符合")>0,COUNTIF(Sheet2!$1:$65536,"不合格")>0),"该检验项目不合格","该检验项目合格")
3.说明:OR(条件1,条件2)
函数,满足其中一个即为真
4.说明:COUNTIF(查找范围,查找字符),获取查找字符串的数量
5.说明:IF()判断并显示
6.本例假定在sheet2整表查找,实际可能不需要那么宽,从效率的角度考虑,请缩小COUNTIF()
查找范围。
汲轻硫酸: 鼠标右键 Sheet1,选择【查看代码】,打开VBE,在代码窗口粘贴下面的代码:Sub ouyangff() j = 1: k = 4 For i = 1 To [a65536].End(xlUp).Row If Cells(i, 1) = Cells(i + 1, 1) Then Cells(j, k) = Cells(i, 1) j = j + 1 Else Cells(j, k) = Cells(i, 1) j = 1: k = k + 1 End If Next End Sub 光标停在代码初按F5,运行程序!按Alt + F11,回到Excel里去看看结果吧!!!
乌兰浩特市18546431190: 请高手帮忙写个excel vba程序~?
汲轻硫酸: VBA可以实现,我也可以给你编一个.但是,我的原则是,如果Excel自带的公式和功能可以实现,绝不用VBA——它也有很大的局限性,甚至是危害性. 下面给出的方法,只是用VLOOKUP函数和条件格式就可以完成: 假设两个表格在一个工...
乌兰浩特市18546431190: 请高手赐教在EXCEL中如何编制公式? - ?
汲轻硫酸: 最简单的方法就是直接在表格中输入=,后面是公式的具体内容,想怎么编就怎么编,方便的很.
乌兰浩特市18546431190: 请高手做一EXCEL程序!!?
汲轻硫酸: 先用hour函数提取sheet1的时间.=COUNTIFS(Sheet1!A$2:A$21,A2,Sheet1!C$2:C$21,"<8")
乌兰浩特市18546431190: 请高手帮忙写个excel的宏 - ?
汲轻硫酸: 其实excel有个功能叫数据库,就是一个现成的程序.“数据”选项卡下,自其他来源——“来自Microsoft Query ”,然后在“数据库”选项卡下点击 EXCEL FILES 确定,然后选择需要的文件信息,就可以了,最后选中“将数据返回EXCEL” 单击完成就哦了
乌兰浩特市18546431190: 请高手写一个excel 宏命令 - ?
汲轻硫酸: 直接将不符合条件的行删除Sub a() For i = 1 To 100'要处理的行,可以使用msg...
乌兰浩特市18546431190: 我想需要给EXCEL编辑个公式,请各位高手帮帮忙! - ?
汲轻硫酸: 在E1输入:=if(B1
乌兰浩特市18546431190: 请位高手帮忙编写一个有关EXCEL数据查重的程序 - ?
汲轻硫酸: 假设一个表在sheet1中,一个表在sheet2中,两个身份证信息均在A列,表1从A1到A200,表2从A1到A100,公式如下:=VLOOKUP(Sheet1!A$1:A$100,Sheet2!A$1:A$200,1,0) 有需要自己再改,QQ:290421468 注明EXCEL
乌兰浩特市18546431190: 求助excel 高手!!! - ?
汲轻硫酸: 写段宏Sub Macro1()' 宏由 成都豺狼 录制,时间: 2009-5-19i = Selection.Row '选定单元格的行j = Selection.Column '选定单元格的列 If i > 48 Then Range(Cells(i - ...
乌兰浩特市18546431190: excel 表格中的编程语句,请高手帮我解释一下下列语句的含义,谢谢 - ?
汲轻硫酸: 这程序是将表1的内容逐行复制到表2 对应的单元格中,并独立打印出来.Sub xx() Dim lastrow As Long '定义变类型 lastrow = Range("B65536").End(xlUp).Row() '读Sheet1有内容最后的行号 Sheets("Sheet2").Select '选择Sheet2 For i = 2...