恳请大师对以下VBA代码逐行解释，极为感谢！

Excel2119

恳请大师对以下VBA代码逐行解释，极为感谢：

1. Sub 批量脊背()
   
2.     arr = Sheet1.Range("a1").CurrentRegion.Value
   
3.     Sheet4.Cells.UnMerge
   
4.     Sheet3.Cells.Copy Sheet4.Range("a1")
   
5.     brr = Sheet3.Range("a1:e8").Value
   
6.     n = 0
   
7.     For i = 2 To UBound(arr)
   
8.         If arr(i, 13) <> "" Then
   
9.             n = n + 1
   
10.             If n Mod 5 = 1 And n > 2 Then
    
11.                 Sheet4.Cells((n \ 5) * 8 - 8 + 1, 1).Resize(UBound(brr), UBound(brr, 2)) = brr
    
12.                 Sheet3.Rows("1:8").Copy Sheet4.Range("a" & (n \ 5) * 8 + 1)
    
13.                 brr = Sheet3.Range("a1:e8").Value
    
14.             End If
    
15.             brr(4, ((n - 1) Mod 5) + 1) = arr(i, 8)
    
16.             brr(6, ((n - 1) Mod 5) + 1) = arr(i, 13)
    
17.             
    
18.         End If
    
19.     Next
    
20.     Sheet4.Cells(Round(n / 5 + 0.49, 0) * 8 - 8 + 1, 1).Resize(UBound(brr), UBound(brr, 2)) = brr
    
21.     设置分页 Sheet4, 8, Round(n / 5 + 0.49, 0) * 8 - 8
    
22. End Sub
    
23. Sub 设置分页(sht, a, b)
    
24. 
    
25.     ActiveSheet.ResetAllPageBreaks
    
26.     For i = a To b Step a
    
27.     sht.HPageBreaks.Add Before:=sht.Range("a" & i + 1)
    
28.     Next
    
29.    
    
30. End Sub

复制代码

chxw68

估计没大神愿意干这活。

feixiangye

用VBA代码注释器翻译的，仅供参考


Sub 批量脊背()    '子程序 批量脊背()
arr = Sheet1.Range("a1").CurrentRegion.Value    'arr= Sheet1的<单元格>区域("a1" )的当前区域的值
Sheet4.Cells.UnMerge    ' Sheet4的单元格集合的UnMerge
Sheet3.Cells.Copy Sheet4.Range("a1")    ' Sheet3的单元格集合的复制 Sheet4的<单元格>区域("a1")
brr = Sheet3.Range("a1:e8").Value    'brr= Sheet3的<单元格>区域("a1:e8" )的值
n = 0    'n=0
For i = 2 To UBound(arr)    '设定变量范围为i=2到<数组上限>(arr)
        If arr(i, 13) <> "" Then    '如果 arr(i,13) 不等于 空值 则执行
                n = n + 1    'n=n+1
                If n Mod 5 = 1 And n > 2 Then    '如果 nMod5=1 并且 n>2 则执行
                        Sheet4.Cells((n \ 5) * 8 - 8 + 1, 1).Resize(UBound(brr), UBound(brr, 2)) = brr    ' Sheet4的<单元格>坐标((n\5)*8-8+1,1 )的<重调大小>(<数组上限>(brr),<数组上限>(brr,2))=brr
                        Sheet3.Rows("1:8").Copy Sheet4.Range("a" & (n \ 5) * 8 + 1)    ' Sheet3的<行>坐标("1:8" )的复制 Sheet4的<单元格>区域("a" & (n\5)*8+1)
                        brr = Sheet3.Range("a1:e8").Value    'brr= Sheet3的<单元格>区域("a1:e8" )的值
                End If    'If判断过程结束
                brr(4, ((n - 1) Mod 5) + 1) = arr(i, 8)    'brr(4,((n-1)Mod5)+1)=arr(i,8)
                brr(6, ((n - 1) Mod 5) + 1) = arr(i, 13)    'brr(6,((n-1)Mod5)+1)=arr(i,13)
        End If    'If判断过程结束
Next    '下一个
Sheet4.Cells(Round(n / 5 + 0.49, 0) * 8 - 8 + 1, 1).Resize(UBound(brr), UBound(brr, 2)) = brr    ' Sheet4的<单元格>坐标(Round(n/5+ 0的49,0)*8-8+1,1 )的<重调大小>(<数组上限>(brr),<数组上限>(brr,2))=brr
设置分页 Sheet4, 8, Round(n / 5 + 0.49, 0) * 8 - 8    '设置分页Sheet4,8,Round(n/5+ 0的49,0)*8-8
End Sub    '子程序结束

Sub 设置分页(sht, a, b)    '子程序 设置分页(sht,a,b)
ActiveSheet.ResetAllPageBreaks    ' 活动工作表的ResetAllPageBreaks
For i = a To b Step a    '设定变量范围为i=a到b步进为a
        sht.HPageBreaks.Add Before:=sht.Range("a" & i + 1)    ' sht的HPageBreaks的添加 前面于= sht的<单元格>区域("a" & i + 1)
Next    '下一个
End Sub    '子程序结束

Excel2119

实际上这段代码可以帮助很多从事档案管理的人，但在此申明，这段代码来自网络，非本人编写（呵呵，再说了我没那水平）。
我觉得最重要的思路是这段代码

1. For i = 2 To UBound(arr)
   
2.         If arr(i, 13) <> "" Then
   
3.             n = n + 1
   
4.             If n Mod 5 = 1 And n > 2 Then
   
5.                 Sheet4.Cells((n \ 5) * 8 - 8 + 1, 1).Resize(UBound(brr), UBound(brr, 2)) = brr
   
6.                 Sheet3.Rows("1:8").Copy Sheet4.Range("a" & (n \ 5) * 8 + 1)
   
7.                 brr = Sheet3.Range("a1:e8").Value
   
8.             End If
   
9.             brr(4, ((n - 1) Mod 5) + 1) = arr(i, 8)
   
10.             brr(6, ((n - 1) Mod 5) + 1) = arr(i, 13)
    
11.             
    
12.         End If
    
13.     Next
    
14.     Sheet4.Cells(Round(n / 5 + 0.49, 0) * 8 - 8 + 1, 1).Resize(UBound(brr), UBound(brr, 2)) = brr
    
15.     设置分页 Sheet4, 8, Round(n / 5 + 0.49, 0) * 8 - 8

复制代码

尤其是

1. Sheet4.Cells((n \ 5) * 8 - 8 + 1, 1).Resize(UBound(brr), UBound(brr, 2)) = brr

复制代码

stoncold

看了，单独一两句能理解，但是没有实际的EXCEL真不知道这个有什么作用，怎样用。

zopey

粗粗一看， arr是源数据 ，brr 是固定格式，
对brr 细节修改后 就是不停复制粘贴，可能是 在生成一组标签。

Excel2119

zopey 发表于 2018-10-17 09:18
粗粗一看， arr是源数据 ，brr 是固定格式，
对brr 细节修改后 就是不停复制粘贴，可能是 在生成一组标签 ...

嗯，就是在做档案管理中，档案盒背脊的批量制作。