Sub Macro1()
For i = 1 To 108
If Cells(i， 4) = "“ And Cells(i， 11) = ”“ Then
Rows(i)。EntireRow。Hidden = True
Else
Rows(i)。EntireRow。Hidden = False
End If
Next
End Sub
新建excel，ALT+F11插入以下代码，按住F8执行，浏览到有VBA工程密码的excel文件，确定后，再按F5就可以了。
Private Sub VBAPassword()
‘你要解保护的Excel文件路径
Filename = Application。GetOpenFilename(”Excel文件（*。xls & *。xla & *。xlt），*。xls；*。xla；*。xlt“， ， ”VBA破解“)
If Dir(Filename) = ”“ Then
MsgBox ”没找到相关文件，清重新设置。“
Exit Sub
Else
FileCopy Filename， Filename & ”。bak“ ’备份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1， i， GetData
If GetData = ”CMG=""“ Then CMGs = i
If GetData = ”[Host“ Then DPBo = i - 2： Exit For
Next
If CMGs = 0 Then
MsgBox ”请先对VBA编码设置一个保护密码。。。“， 32， ”提示“
Exit Sub
End If
Dim St As String * 2
Dim s20 As String * 1
‘取得一个0D0A十六进制字串
Get #1， CMGs - 2， St
’取得一个20十六制字串
Get #1， DPBo + 16， s20
‘替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1， i， St
Next
’加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1， DPBo + 1， s20
End If
MsgBox ”文件解密成功。。。。。。“， 32， ”提示“
Close #1
End Sub
一下代码测试通过，效果和你要求的一样：
Option Explicit
Sub ygb()
Dim n， i， j， a， b， c
n = Cells(Cells。Rows。Count， ”J")。End(xlUp)。Row ‘j列最后一行的行号
a = [a3]
b = [b3]
c = [c3]
i = n
For j = 1 To a ’重复a3次
'隐藏c3行
Range(Cells(i - c + 1， 1)， Cells(i， 1))。EntireRow。Hidden = True
i = i - b - c
Next j
End Sub
- 上一篇：AABC的词语有哪些_2
- 下一篇：dnf背景故事