Excel常用操作_vbs

复制过来的数据只留值，还是连公式一起拷贝过来？
用的excel版本都是同一个版本吗？
使用的时候，需要目录下多个表单批处理吗？想要怎么用?如果对方没有想法，就先打听他们平常的用法，自己想清楚了再给建议。
文件中每个sheet的数据都需要统计吗？不需要的话要确定标识位
文件中的异常数据要校验吗？
同一个文件用的模板是同一个？还是同一个文件用的模板是不同的？模板样式是不是只有这两个模板样式？
需要汇总的数据确认，是只关注第一段连续序号，还是只要明细数据都要关注？

 

'**************行转列

Sub zhuan()
Dim sourceRange As Range
    Dim targetRange As Range
    Set sourceRange = ActiveSheet.Range(Cells(1, 1), Cells(3, 3))
    Set targetRange = ActiveSheet.Cells(6, 1)
    a = ActiveSheet.Name
    MsgBox a
    Exit Sub
    sourceRange.Copy
    targetRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True'
End Sub

' ******************用于批量处理Excel文件,处理某路径下的多个excel文档
' Sub OpenXLSFile()
'     Dim Path$, File$
'     Dim wb As Workbook, sht As Worksheet
'     With Application.FileDialog(msoFileDialogFolderPicker)
'         If .Show Then
'             Path = .SelectedItems(1)
'             File = Dir(Path & "\*.xls")
'             Application.EnableEvents = False
'             Application.Calculation = xlCalculationManual
'             Do Until LenB(File) = 0
'                 Set wb = Workbooks.Open(Path & "\" & File)
'                 For Each sht In wb.Worksheets
'                     '加入需要处理的代码
'                 Next
'                 MsgBox wb.Name
'                 wb.Close True
'                 File = Dir
'             Loop
'             Application.EnableEvents = True
'             Application.Calculation = xlCalculationAutomatic
'         End If
'     End With
' End Sub
 

 

'***********************
'*
'*遍历所有活动工作簿中的所有sheet
'*
'***********************
Public Sub Data()

Dim i As Integer
Dim j As Integer

For i = 1 To Workbooks.Count

    Workbooks(i).Activate

    For j = 1 To Worksheets.Count
    
    Workbooks(1).Worksheets(1).Cells(j, i) = Worksheets(j).Cells(2, 16)
Next

'*******************获取sheet
' 1 Worksheets(2).select
' 同Sheets(2).select ，指由左至右第2个Sheets，即Sheet1，包含隐藏sheet！
' 2 Worksheets("Sheet1").select
' 同Sheets("Sheet1").select ，直接选中指定名称的sheet，双引号内为sheet名称，选中Sheet1
' 3 Sheet2.select

'**********************worksheet的常用方法
' https://blog.csdn.net/zou_seafarer/article/details/1494773

'******************获取workbook名称
' ActiveWorkbook.FullName

'******************获取sheet名称
'strName = WorkSheet.Name;