ExcelVBA
Yogurt_cry
一个业余的程序员
展开
-
<ExcelVBA>多行内容合并到同一个单元格
Sub Test() With Sheet1 '准备阶段 .Range("C:C").Clear '清除C列中数据即格式 '定义数据类型 Dim k() As Integer '定义一个整型数组k(),用于存放获取到的数据 Dim ks As Integer '定义一个整型ks,作为整型数组k()的序列号原创 2018-02-01 20:03:27 · 9771 阅读 · 1 评论 -
VBA多级联动更新代码
Option ExplicitSub updateList() Application.ScreenUpdating = False '取消屏幕闪烁 Dim i As Integer '循环index Dim j As Integer '横向index Dim k As Integer '输出index k = 2 '设置辅助表行数初始值 For...原创 2018-06-03 13:12:12 · 2287 阅读 · 0 评论 -
VBA自动拆分地址
Function SplitAddress(split_value As String, address_array As Range, type_num As Integer) Dim startCol As Long '起始列号 Dim endCol As Long '结束列号 Dim startRow As Long '起始行号 Dim endRow As ...原创 2018-07-29 13:07:47 · 1904 阅读 · 3 评论 -
VBA工作簿内合并所有工作表
Sub MergeSheets() '工作簿内合并所有工作表 Dim sheetsCount As Long '定义 工作簿内工作表数量 赋值为 sheetCount 数据类型为 Long(长整型) Dim rowCount As Long '定义 汇总表行数 赋值为 rowCount 数据类型为 Long(长整型) Dim i As Long '定义 循环标识 赋值为 ...原创 2018-09-07 13:56:21 · 4454 阅读 · 1 评论 -
VBA自动获取二级文件夹目录
Sub FindFileName() ThisWorkbook.Worksheets(1).UsedRange.Delete '打开文件时清空所有单元格内容 Dim DirectPath As String '定义父文件夹路径 Dim ChildDirectPath As String '定义子文件夹路径 DirectPath = ThisWorkbook.Pat...原创 2018-10-10 09:52:53 · 2562 阅读 · 0 评论 -
数组排序——VBA工作簿排序
Sub OrderBy() Dim SheetCount As Long SheetCount = ThisWorkbook.Worksheets.Count - 1 ReDim SheetNameArray(SheetCount) Dim Index As Long Dim Names As String For Index = 0 To She...原创 2018-10-19 16:54:43 · 2041 阅读 · 0 评论 -
按条件拆分Excel内容并另存为单独的工作簿
Option ExplicitSub SplitInfomation() Application.ScreenUpdating = False With ThisWorkbook.Worksheets(1) '按单位名称排序 With .Sort .SortFields.Clear .SortFi...原创 2018-10-27 01:24:10 · 2698 阅读 · 0 评论 -
VBA一对多模糊查询简单代码
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$2" Then Call LikeSearch '当变更单元格为F2时,执行模糊查询End SubSub LikeSearch() Dim RowMax As Long '定义B列最大行序号 Dim RowIn...原创 2018-11-19 17:40:29 · 8707 阅读 · 0 评论