哪位大神能幫忙翻譯下這串VBA代碼每一句的含義，小白，急，非常感謝！

程序的功能是：把指定文件夾下所有的工作簿中所有的工作表的內(nèi)容，復(fù)制到當前工作表中。 如果還有個別語句不理解，可以指明進行詳細解釋。

求大神幫忙翻譯下這段VBA每行代表什么意思？

SubMyLookup()
DimIAsInteger,JAsInteger,KAsInteger,NAsInteger
DimArr,Brr(),d
DimShAsWorksheet
DimPathOfFileAsString,NameOfFileAsString
'以下僅對程序進行標志，無具體說明，若有不懂的地方，可以查找相關(guān)語句的具體用法或追問
'注釋by:Super
Application.Volatile'易失性函數(shù)
PathOfFile=ThisWorkbook.Path&"\"'文件路徑，當前文檔所在文件夾下
NameOfFile="數(shù)據(jù)源.xls"'文件名
OnErrorResumeNext'防錯語句
WithGetObject(PathOfFile&NameOfFile)'使用with，以下操作均以上述文件為基礎(chǔ)
IfErr<>0Then'如果出錯
GoToendValue'直接運行到endvalue
EndIf
Setd=CreateObject("Scripting.Dictionary")'建立字典
ForEachShInWorkbooks("數(shù)據(jù)源.xls").Worksheets'歷遍數(shù)據(jù)源.xls這個工作薄的每個工作表
IfSh.Range("B1")<>""Then'如果B1不為空
Arr=Sh.Range("B1").CurrentRegion'將b1所在的currentregion區(qū)域?qū)懭霐?shù)組arr
I=Sh.UsedRange.Columns.Count'I=工作表使用的最大列數(shù)
ForJ=2ToUBound(Arr,2)'對數(shù)組（即工作表的列）進行循環(huán)，
N=N+1'N遞增
d(Arr(J,3))=N'將C列(不含C1）寫入字典
ReDimPreserveBrr(1ToI,1ToN)'重新定義二維數(shù)組brr
ForK=1ToI'對K進行循環(huán)
Brr(K,N)=Arr(J,K)'對二維數(shù)組brr進行賦值
NextK
NextJ
EndIf
NextSh
.CloseFalse'關(guān)閉文件
EndWith'結(jié)束with,以下在當前文件下操作
Range("C2:D"&Range("A65536").End(3).Row).ClearContents'清空CD二列除第一行的數(shù)據(jù)
ForI=2ToRange("A65536").End(3).Row'對I進行循環(huán)
IfNotd.exists(Cells(I,2).Value)Then'如果字典中不存在B列的數(shù)據(jù)
Cells(I,2)="未查詢到"'B列顯示“未查詢到”
Cells(I,3)="未查詢到"'C列顯示“未查詢到”
Else'否則
Cells(I,2)=Brr(3,d(Cells(I,2).Value))'將數(shù)組brr中相應(yīng)的值賦到B列
Cells(I,3)=Brr(4,d(Cells(I,2).Value))'將數(shù)組brr中相應(yīng)的值賦到C列
EndIf
NextI
endValue:'單獨行，之前有個goto需要轉(zhuǎn)到的語句
EndSub

麻煩大家?guī)臀摇胺g”一下Excel中的這些VBA是什么意思？

代碼的意思很簡單,首先要確定的是S2的值是多少,(舉例說是10.) 就是把表里1-28行復(fù)制貼到到A31以下,且如此每隔31行粘貼1次,共粘貼10(s2的值)次. 然后把這些粘貼了1-28行的內(nèi)容(A-0欄),10次的話就是A1:O340設(shè)定為打印范圍. Private Sub Workbook_Open() 打開工作表就執(zhí)行下面代碼. Dim i As Long 定義i為長整型數(shù)字 Dim times As Long 定義times為長整型數(shù)字 Dim j As Long 定義j為長整型數(shù)字 times = Range("S2") 將S2儲存格的值賦給times j = times * 31

請幫我分句翻譯一下下面一段VBA代碼的意思。

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub '改變內(nèi)容次數(shù)的統(tǒng)計，大于一次就退出程序，說明執(zhí)行第一次改變的內(nèi)容 If Target.Column > 1 Then Exit Sub '改變內(nèi)容的區(qū)域在大于第一列，說明改變內(nèi)容只能在第一列 Dim c As Range '定義變量c為range類型 Application.EnableEvents = False ’讓表的事件失效，就是運行這句代碼后，表所有事件程序都失效，包括這個程序，作者可能是想運行時可能會改變表某些

有誰能幫我翻譯這段EXCEL VBA代碼，我要每一句話的意思哦，謝謝高手幫忙

親，如下圖，非要一句話說明：

從A2到帶星號單元格構(gòu)成的矩形區(qū)域中，用短線連接有黑色圓點的單元格。