作者：乔山办公网日期：
返回目录：excel表格制作
If InStr(1, ",dog,cat,", "," & Range("B1").Value & ",") Then
或者用zdand连接两个判断
-------------------------------------------
呃，看错了，不是相等版，是包含
那用两个语句and连接
wangxf9209的like也可以，instr函数也权可以
没有其他情况可以不用百else
代码是从上往下执行的，满足度条件就执内行，不满足就跳过。
if x = "1" then 执行代码容
if x = "2" then 执行代码
if x = "3" then 执行代码
没有看明白你为什么zhidao输入Q后一个是M，而输入E后一个是I，一个在前四格一个在后四格，请固定规则。
没规则就没办法IF
另第一个已写好以版下代码
Sub 产品复制对权比()
Sheets("产品对比").Select
Rng = InputBox("输入昨日数据单元格")
Range(Rng).Resize(13, 4).Copy Sheets("每日对比").[a1]
Range(Rng).Offset(0, -4).Resize(13, 4).Copy Sheets("每日对比").[e1]
Range(Rng).Offset(31, 14).Resize(6, 10).Copy Sheets("每日对比").[a72]
Range(Rng).Offset(31, 24).Resize(6, 10).Copy Sheets("每日对比").[a78]
End Sub