VBA小倉庫

Option Explicit
Sub assembly()
  '日積月累
End Sub
'本文代碼爲不同功能模塊的合集，旨在爲日後快速編寫代碼提供便利。

'第一部分： 打開文件
    
    'File_sum = "E:\code\彙總.xls"
    'Set Sum_Workbook = GetObject(File_sum)


'第二部分：打開表格

'1. Set A_Range = Worksheets("Sheet4").UsedRange



'第三部分：獲得表格相關屬性信息

' 1. ar = A_Range.Rows.Count
'    temp_Workbook.Worksheets(i).UsedRange.Columns.Count

'第四部分：控制語句

 '  For i = 1 To j
 '
 '  Next
 '
 '
  '  Do While Len(myfile) > 0
 '
  '  Loop
 '
  '
 '   If myfile Like "*登記表*" Then
  '
 ' ' End If
 '
 
'     Select Case B.Cells(j, 3)
'       Case Is = A.Cells(1, 3)
 '
  '     Case Is = A.Cells(1, 6)
'
 ' '    Case Is = A.Cells(1, 6)
'
 '      Case Else
  '   End Select
'     參考：https://blog.csdn.net/l_iu_xing/article/details/92621923
 ' '


 '
 '第五部分：功能性模塊

'1.插入或者刪除行列： https://blog.csdn.net/l_iu_xing/article/details/83140818

'2.對多個文件進行訪問、處理：
    
'    myfile = ""
'    myfile = Dir(File_Dir & "\*登記表*.xls*")
'    Do While myfile <> ""   '若不爲空，遍歷開始
'
'    Loop
     '具體過程參看 ：https://blog.csdn.net/l_iu_xing/article/details/89241280
'
' 3. 清除表格內容：
'     Sum_Workbook.Worksheets(1).UsedRange.Clear
 '
' 4. 字符串轉換爲數字型：
 '   A.Cells(i, 5) = Val(B.Cells(j, 6))
  '
' 5. 產生隨機數：
'     Debug.Print Int((i - 1 + 1) * Rnd) + 1
        ' rnd * (B - A + 1) + A 產生 [A,B]之間的數
 ' '
'
 '第六部分：常用代碼模板的說明及其鏈接
  '
 ' 1. 此模板處理多個xls文件中給定關鍵字的查找，並將匹配的
   '  記錄複製、輸出
   '   鏈接： https://blog.csdn.net/l_iu_xing/article/details/89487057
  '
'
 ' '2.此模塊中包含對行/列中重複單元格的篩選、排除，得到沒有重複數據的行/列
 '    鏈接： https://blog.csdn.net/l_iu_xing/article/details/92621923
 '
 '
  ' 3. 此模板用於對多個結構相同xls文件中固定單元格信息提取
  '   鏈接：https://blog.csdn.net/l_iu_xing/article/details/89241280
'
 ' '4. 此模板用於求區域內數據的相關統計值，如max/min/ave/sum等
  '   鏈接：https://blog.csdn.net/l_iu_xing/article/details/84030722