希望高手哥哥能帮忙讲解下下面的代码是什么意思

qijinping

自已现在也在慢慢的学习VBA，可能是没有什么底子，很多代码不能理解是什么意思，
希望高手哥哥能帮忙讲解下下面的代码是什么意思。

1. Dim Arr, ar, n%, k%, s$, d
   
2.     With Worksheets("入库单")
   
3.         n = .[b5].End(4).Row()
   
4.         If n = 6 Then End
   
5.         d = .[c4]: s = .[k4]
   
6.         Arr = .[b7:k7].Resize(n - 6)
   
7.         ar = .[l7].Resize(n - 6)
   
8.         Union(Range(.Cells(7, 2), .Cells(n, 2)), Range(.Cells(7, 6), .Cells(n, 9)), _
   
9.                     Range(.Cells(7, 11), .Cells(n, 12))).ClearContents
   
10.    
    
11.     With Worksheets("入库记录")
    
12.         k = .[b1048576].End(3).Row + 1
    
13.         If k < 5 Then k = 5
    
14.         .Cells(k, 2).Resize(n - 6, 10) = Arr
    
15.         .Cells(k, 14).Resize(n - 6) = ar
    
16.         .Cells(k, 1).Resize(n - 6).Formula = "=row()-4"
    
17.         .Cells(k, 12).Resize(n - 6) = d
    
18.         .Cells(k, 13).Resize(n - 6) = s

复制代码

qijinping

自己顶下，别让沉下去了。

nini711

我确定我能读懂，不过得翻翻书，帮你顶下

qijinping

nini711 发表于 2019-2-11 20:25
我确定我能读懂，不过得翻翻书，帮你顶下

那你得好好的翻吧

abc123281

如果哥哥给小妹讲解了  有什么好处呀

nini711

Dim Arr, ar, n%, k%, s$, d
    With Worksheets("入库单")
        n = .[b5].End(4).Row()’end（4）是end（xldown）的意思么？，那就是获取b5向下数最后一个不为空的单元格行序数。
        If n = 6 Then End
        d = .[c4]: s = .[k4]
        Arr = .[b7:k7].Resize(n - 6)
        ar = .[l7].Resize(n - 6)
        Union(Range(.Cells(7, 2), .Cells(n, 2)), Range(.Cells(7, 6), .Cells(n, 9)), _
                    Range(.Cells(7, 11), .Cells(n, 12))).ClearContents

with worksheets之后的.[b5]相当于
worksheets（"入库单"）.[b5]指入库单的b5单元格。
d = .[c4]: s = .[k4]相当于d =worksheets（"入库单"） .[c4]: s =worksheets（"入库单"） .[k4]
Arr = .[b7:k7].Resize(n - 6)，resize是以b7：K7这一选区为基准，将选区向下扩大n-6行。比如当n=8，那arr的range就是b7：K8

    With Worksheets("入库记录")
        k = .[b1048576].End(3).Row + 1
        If k < 5 Then k = 5
        .Cells(k, 2).Resize(n - 6, 10) = Arr
        .Cells(k, 14).Resize(n - 6) = ar
        .Cells(k, 1).Resize(n - 6).Formula = "=row()-4" ’formula是公式属性，把这个选区都输入“=row（）-4”这个公式
        .Cells(k, 12).Resize(n - 6) = d
        .Cells(k, 13).Resize(n - 6) = s

chis3

這樣沒什麼意思
都是基本句,難道你看一句發問一句嗎,看書更好

lsdongjh

1. Dim Arr, ar, n%, k%, s$, d
   
2.     With Worksheets("入库单")
   
3.         n = .[b5].End(4).Row() '取得B5单元格开始，连续区域中的最后一个非空单元格的行号
   
4.         If n = 6 Then End '如果N为6，退出
   
5.         d = .[c4]: s = .[k4]
   
6.         Arr = .[b7:k7].Resize(n - 6) 'Arr的区域 为 B7:Kn
   
7.         ar = .[l7].Resize(n - 6) 'ar的区域 为l7:ln
   
8.         '清除B7:Bn,F7:In,K7:Ln这三个区域的内容
   
9.         Union(Range(.Cells(7, 2), .Cells(n, 2)), Range(.Cells(7, 6), .Cells(n, 9)), _
   
10.                     Range(.Cells(7, 11), .Cells(n, 12))).ClearContents
    
11.    
    
12.     With Worksheets("入库记录")
    
13.         k = .[b1048576].End(3).Row + 1 '取得B1048576 单元格向上的第一个非空单元格所在的下一行的行号，相当于B列有效区域的下一行的行号
    
14.         If k < 5 Then k = 5
    
15.         .Cells(k, 2).Resize(n - 6, 10) = Arr '在 B列至K列 回填
    
16.         .Cells(k, 14).Resize(n - 6) = ar '在N列填充原l 列的内容
    
17.         .Cells(k, 1).Resize(n - 6).Formula = "=row()-4" ' 在A 列编号
    
18.         .Cells(k, 12).Resize(n - 6) = d
    
19.         .Cells(k, 13).Resize(n - 6) = s

复制代码

mx200200

妹子，抽空学学算法和语法，抽象难懂，但是会进步神速的