当前位置：文档之家 › Excel-VBA常用技巧代码

Excel-VBA常用技巧代码

  • 格式：docx
  • 大小：14.79 KB
  • 文档页数：5

多个工作薄合并成同一个工作薄，如何合并？
多人填一个同样的工作薄，形成了多个工作薄。

如何让几人填了一部分的工作薄合并成终稿。

Sub 汇总()
Dim mypath As String, myname As String, Dname As String, sh As Workbook, copyrow As Integer
Set sh = ThisWorkbook
mypath = ThisWorkbook.Path
myname =
Dname = Dir(mypath & "\*.xls")
Application.ScreenUpdating = False
Do While Dname <> ""
If Dname <> myname Then
copyrow = 1
With GetObject(mypath & "\" & Dname)
For i = 1 To .Worksheets.Count
If .Sheets(i).Cells(5, 3) <> "" Then
.Sheets(i).Rows("1:"
& .Sheets(i).UsedRange.Rows.Count).Copy sh.Sheets(i).Cells(copyrow, 1)
End If
Next
.Close False
End With
End If
Dname = Dir
Loop
Application.ScreenUpdating = True
MsgBox "OK!"
End Sub
合并工作簿：将其他工作簿的全部表合并到本工作
Sub 合并工作簿()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
Sub 合并工作表()
For Each st In Worksheets
If <> Then edRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub
Sub 删除其他工作表()
Dim arr()
A =
icount = Sheets.Count
For i = 1 To icount
t = Sheets(i).Name
If t <> A Then
r = r + 1
ReDim Preserve arr(1 To r)
arr(r) = t
End If
Next
Sheets(arr).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub
Sub 清空本表()
Cells.Select
Selection.ClearContents
Range("A1").Select
End Sub
Sub 导出()
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
Application.CutCopyMode = False
ChDir "C:\Documents and Settings\y\桌面"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\y\桌面\新表.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
Range("G4").Select
Application.DisplayAlerts = 0
Application.Quit
End Sub
将文件夹内的工作薄的sheet1的内容合并到当前工作薄
Sub test()
Dim w As Workbook, sh As Worksheet, MyPath As String, MyName As String Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
d() = ""
Next
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.xls")
Do While MyName <> ""
If MyName <> Then
With ThisWorkbook
Set w = CreateObject(.Path & "\" & MyName)
For Each sh In w.Worksheets
If d.Exists() Then _
edRange.Offset(1).Copy .Worksheets().[a65536].End(3)(2, 1) Next
Windows().Visible = True
w.Close False
End With
End If
MyName = Dir
Loop
Set d = Nothing
Set w = Nothing
ActiveWorkbook.RemovePersonalInformation = False
Application.ScreenUpdating = True
MsgBox "数据处理完毕。

" End Sub。

合集下载

excel vba常用代码

excel vba常用代码

excel vba常用代码Excel VBA是一种用于编写宏的编程语言，它可以帮助我们在Excel 中进行自动化操作。

在VBA中，有一些常用的代码，可以帮助我们快速完成一些常见的任务。

本文将介绍一些常用的Excel VBA代码，帮助读者更好地理解并运用它们。

一、数据处理1.1 数据筛选在Excel中，我们经常需要根据某些条件筛选数据。

使用VBA可以实现自动筛选，代码如下：```ActiveSheet.Range("A1:D10").AutoFilter Field:=1, Criteria1:=">10"```以上代码将自动筛选出范围为A1:D10的数据，其中第一列大于10的数据。

1.2 数据排序有时候，我们需要对数据进行排序。

使用VBA可以实现自动排序，代码如下：```ActiveSheet.Range("A1:D10").Sort Key1:=Range("A1"), Order1:=xlAscending```以上代码将自动对范围为A1:D10的数据根据第一列进行升序排序。

1.3 数据透视表数据透视表可以帮助我们对数据进行汇总和分析。

使用VBA可以自动生成数据透视表，代码如下：```ActiveSheet.PivotTableWizard```以上代码将自动生成一个数据透视表。

二、单元格操作2.1 单元格赋值在VBA中，我们可以使用代码将某个值赋给指定的单元格，代码如下：```Range("A1").Value = "Hello World"```以上代码将把"Hello World"赋值给A1单元格。

2.2 单元格格式设置使用VBA可以设置单元格的格式，例如设置字体、颜色、边框等，代码如下：```Range("A1").Font.Bold = TrueRange("A1").Interior.Color = RGB(255, 0, 0)Range("A1").Borders.LineStyle = xlContinuous```以上代码将设置A1单元格的字体为粗体、背景色为红色、边框为实线。

VBA拆分和合并单元格的技巧

VBA拆分和合并单元格的技巧

VBA拆分和合并单元格的技巧在 Excel 中使用 VBA（Visual Basic for Applications）拆分和合并单元格是一种非常有效的方式，可以帮助你处理大型数据表格。

通过拆分和合并单元格，你可以将数据按照特定的要求进行重新组织，并且可以提高数据的可读性和分析的准确性。

本文将介绍一些常用的 VBA 技巧，帮助你更好地完成拆分和合并单元格的任务。

拆分单元格是将一个合并单元格拆分成多个单元格的过程。

使用 VBA 可以轻松地实现此操作。

以下是拆分单元格的示例代码：```Sub SplitCells()Dim rng As RangeSet rng = Range("A1:B2")rng.UnMerge ' 取消单元格合并rng.Value = rng.Cells(1).Value ' 将第一个单元格的值赋给拆分后的单元格rng.ClearFormats ' 清除格式' 调整单元格的行高和列宽使其适应拆分结果rng.EntireRow.AutoFitrng.EntireColumn.AutoFitEnd Sub```以上代码中，我们首先定义了一个范围对象 `rng` 来表示要拆分的单元格区域。

然后，我们使用 `UnMerge` 方法取消单元格的合并，并将第一个单元格的值赋给拆分后的所有单元格。

接下来，我们使用 `ClearFormats` 方法清除拆分后的单元格的格式。

最后，我们使用 `EntireRow.AutoFit` 和`EntireColumn.AutoFit` 方法调整行高和列宽，以适应拆分后的单元格。

合并单元格是将多个单元格合并成一个单元格的过程。

同样地，我们可以使用 VBA 来实现此操作。

以下是合并单元格的示例代码：```Sub MergeCells()Dim rng As RangeSet rng = Range("A1:B2")rng.Merge ' 合并单元格rng.Cells(1).Value = rng.Value ' 将合并后的单元格的值赋给第一个单元格rng.HorizontalAlignment = xlCenter ' 设置水平对齐方式为居中rng.VerticalAlignment = xlCenter ' 设置垂直对齐方式为居中End Sub```以上代码中，我们同样定义了一个范围对象 `rng` 来表示要合并的单元格区域。

vba常用代码大全

vba常用代码大全

前言我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。

而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA 函数，以供大家学习参考。

第1.1例 ASC函数一、题目：要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII 值。

二、代码：Sub 示例_1_01()Dim myNum1%, myNum2%myNum1 = Asc("Excel") '返回69myNum2 = Asc("e") '返回101[a1] = "myNum1= ": [b1] = myNum1[a2] = "myNum2= ": [b2] = myNum2End Sub三、代码详解1、Sub 示例_1_01()：宏程序的开始语句。

2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。

也可以写为 Dim myNum1 As Integer 。

Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。

Integer 的类型声明字符是百分比符号 (%)。

3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。

Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。

语法Asc(string)必要的 string（字符串）参数可以是任何有效的字符串表达式。

如果 string 中没有包含任何字符，则会产生运行时错误。

4、myNum2 = Asc("e")：把Asc函数的值赋给变量myNum2。

EXCEL常用VBA代码

EXCEL常用VBA代码

删除B列中字符串数值少于21的单元格所在的行Sub 删除行()r = Range("B65536").End(xlUp).Row '行数For h = r To 1 Step -1If Cells(h, 2) < 21 Then Cells(h, 2).EntireRow.DeleteNextEnd Sub-------------------------【工作表合并】将同一工作簿中的所有工作表合并到一个工作表中新建一个工作表，写入代码[在新建的工作表标签处右键查看代码（找不到的直接按一下alt+F11) 把下面的代码复制进去然后点上面的运行运行子程序即可]：Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j).Name <> ThenX = Range("A65536").End(xlUp).Row + 1Sheets(j).UsedRange.Copy Cells(X, 1)End IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"End Sub*********************************************************代码这样写也行：Sub c()For i = Sheets.Count To 2 Step -1Sheets(i).SelectSheets(i).UsedRange.CopySheets(1).SelectCells(Cells(65000, 1).End(xlUp).Row + 1, 1).SelectActiveSheet.Paste'Sheets(i).DeleteNext iEnd Sub************************************************************把一个工作簿中的所有表单合并成一个表单，怎么去掉重复的表头、标题行？方法如下：Sub c()For i = Sheets.Count To 2 Step -1Sheets(i).UsedRange.Offset(1).Copy Sheets(1).Cells(65536, 1).End(xlUp).Offset(1) Next iEnd Sub说明：函数OFFSET(reference,rows,cols,height,width)以指定的引用为参照系，通过给定偏移量得到新的引用。