å¯ä»¥å©ç¨VBAå®ç°å½Aååå æ ¼ä¸B1è³B7ä¸ï¼æç¸åæ°å¼æ¶ï¼èªå¨éè该è¡ã
软件çæ¬ï¼office2007
举ä¾è¯´æå¦ä¸ï¼
1.å½Aååå æ ¼ä¸B1è³B7ä¸ï¼æç¸åæ°å¼æ¶ï¼èªå¨éè该è¡
2.Alt+F11ï¼è¾å ¥ä»£ç å¦ä¸ï¼
3.F5æ§è¡ä»£ç ï¼ç»æå¦ä¸ï¼
如果要把A列改成别的列数是在哪个改,,
如果反过来呢,,把没有等于B1:B7的行隐藏,,可以吗。。?
追答Sub s()Sub a()
Set d = CreateObject("Scripting.dictionary")
For Each sh In Range("b1:g1")
d(sh.Value) = ""
Next
For Each sh In Range(Cells(1, 1), Cells(Cells(Rows.Count, "a").End(3).Row, "a"))
If d.exists(sh.Value) Then Rows(sh.Row & ":" & sh.Row).EntireRow.Hidden = True
Next
End Sub
附件上传失败就不上传了
追问如果要把A列改成别的列数是在哪个改,,
如果反过来呢,,把没有等于B1:B7的行隐藏,,可以吗。。?
追答如果要把A列改成别的列数是在哪个改,如果是h列,就这样改
For Each sh In Range(Cells(1, "h"), Cells(Cells(Rows.Count, "h").End(3).Row, "h"))
如果要把A列改成别的列数是在哪个改,如果反过来呢,,把没有等于B1:B7的行隐藏就这样改
Sub a()
Set d = CreateObject("Scripting.dictionary")
For Each sh In Range("b1:g1")
d(sh.Value) = ""
Next
For Each sh In Range(Cells(1, "h"), Cells(Cells(Rows.Count, "h").End(3).Row, "h"))
If not d.exists(sh.Value) Then Rows(sh.Row & ":" & sh.Row).EntireRow.Hidden = True
Next
End Sub
我知道需要VBA代码,,可问题怎么设置。。
追答可以帮你设置,但需要你将问题描述得细致一些。
追问比如A列中的任一一行或多行等于B1至G1中的任一个单元格数值,则隐藏该行
追答【A列中的任一单元格】究竟是与【B1:B7】比较,还是与【B1:G1】比较?!两次的描述自相矛盾啊!!!
追问B1至B7
追答Sub 隐藏行()如果要把A列改成别的列数是在哪个改,,
哦,,知道了,,
如果反过来呢,,把没有等于B1:B7的行隐藏,,可以吗。。?
追答把没有等于B1:B7的行隐藏,只需将代码中的大于号>改为等号=
追问如果同时要多列呢,,
比如,,ABC这3列,,
追答Sub 隐藏行()再问一个,,A1单元格为12.34怎么取个位数2呢,,
=RIGHT(A1,3)
这公式可以,,但是如果A1为12.3时就不行了,,
本回答被提问者采纳