Dim h為字節，x為字節，y為字節，s%，HR'%聲明三個字節變量，1個整數變量，以及...最後壹個變量沒有聲明的類型，默認情況下這是壹個壞習慣。見下面的賦值可以聲明為整數。
hr =數組(11，13，18，19)
h = 8
y = 10
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
''//*******
隨著...end with通常在有許多對象級別時使用，此時不建議使用它。
當在此結構中使用後跟With的對象時，可以省略它，例如
S =。單元格(行。數數，3)。結束(3)。row+1相當於。
S =表(“應付賬款”)。單元格(行。數數，3)。結束(3)。行+1。
''//
附單(“應付賬款”)
收到“應付賬款”表中已有的行後加1；如果等於5，則S = 7，用於指定應付賬款保證金的起始行(從上往下空壹行)。
s =。單元格(行。數數，3)。結束(3)。行+ 1
如果s = 5，那麽s = s + 2
。單元格(s，1)。價值=應收賬款(6，1)'我不知道為什麽我先把壹個應收賬款放進應付賬款。
''//
UBound(hr)是數組的上邊界，第壹個元素標簽默認為0，其中hr有4個元素。
所以UBound(hr)=3。
嵌套兩個For語句，循環獲取指定範圍內所有單元格的值，然後依次追加到“應付賬款”表中。
''//
對於q = 0到UBound(hr)'外循環，循環由hr數組的每個元素指定的行。
內部循環，將內容從第2列循環到第22列；每次外環循環1次，內環循環22-2+1次。註意for和while的區別。
對於x = 2到22
。單元格(s，x) = A/P (hr(q)，x)
然後
S = s+1 '在取出每壹行數據後,“應付帳款”表中的當前行下移壹行。
然後
以…結尾
好吧！