来新公司后的第一次通宵

年前换了个工作，这次是新工作的第一次加通宵，是为了统计订货数据，全靠在EXCEL里汇总分析，感觉EXCEL真是个强大的工具，通过宏将一百多份的EXCEL做的订单合并汇总，有几个语句老是记不住，
’清楚剪贴板内容，这要在关闭文档时就不会提示是否保留剪贴板内容
 Application.CutCopyMode = False

’列表目录下的文件名

Sub ShowFolderList()
    Dim fs, f, f1, fc, s
   Dim i As Integer
    Dim strPath As String
    strPath = "F:/order/"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(strPath)
    Set fc = f.Files
    i = 0
    For Each f1 In fc
       
        Sheet1.Cells(14 + i, 11) = f1.Name
            
       ' s = s & f1.Name
        's = s & vbCrLf
        i = i + 1
    Next
  ' MsgBox s
End Sub

还有一个FIND的命令把我折腾的要命，总是在一些地方不好使，现在还没有搞的太清楚，只是猜测这个命令不能连续在多个范围查询，前一个RANGE里查询后，在到后一下RANGE里查询就会成NOTHING，真是搞不懂了，由于时间紧也没办法去验证。

Range.Offset（Row，Column）是在RANGE偏移的位置