excel vba判断单元格最后一个字符是2,则打印

判断一单元格，最后一个字符是"2”，则不执行打印；如是"1"，则打印。

单元格内容有： “88289-1” "88289-2" 等等。。。

If Sheets(1).Cells(10, 3) = 4431 Then
Sheets(3).Range("AB99:AJ109").PrintOut copies:=1, collate:=True
Sheets(3).Range("AB132:AJ142").PrintOut copies:=1, collate:=True
If Sheets(1).Cells(10, 2).LastString = "1" Then
Sheets(3).Range("AB143:AJ153").PrintOut copies:=1, collate:=True
End If
End If

最后一个字符的话你可以用 right()
例如:
If right(Sheets(1).Cells(10, 2),1) = "1" Then
Sheets(3).Range("AB143:AJ153").PrintOut copies:=1, collate:=True
End If

1. 假设数据在a列 在b1输入公式 =replace(a1,1,1,) 回车确定，鼠标对准单元格右下角,当出现一个黑色小十字时,同时按住鼠标左键往下拖动填充 2. 用替换（ctrl+h),查找字为固定字符，替换为不输入任何值，点击全部替换。 3. 示例，把下表中的百度批量删除。