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