Excel常用操作

复制过来的数据只留值，还是连公式一起拷贝过来？ 用的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;