l_iu_xing的博客

VBA

度分秒

VBA

2个表格对比，筛选、删除数据Option ExplicitSub search()'Debug.Print "~~~~~~~~~~~~~~~~~~~~~~~~"'变量声明Dim File_sum, Sum_Workbook, i, j, sum, name_song_3, name_song_5, phone_3, phone_5 '----------------------------------------------------------------- '打开文件

按照账表格式，计算累计借贷结果。Option ExplicitSub count() Dim my_range, A_sum, B_sum, result_sum, i, flag_a, flag_b, j Dim A_yi, A_qianwan, A_baiwan, A_shiwan, A_wan, A_qian Dim A_bai, A_shi, A_yuan, ...

1948-1-211983-02-71988-7-1Sub re_format() Dim i, j, a, B, year, month, day, flag_a, flag_b, temp Set a = Worksheets("Sheet1").UsedRange Set B = Worksheets("Sheet2").UsedRange ...

Option ExplicitSub assembly() '日积月累End Sub'本文代码为不同功能模块的合集，旨在为日后快速编写代码提供便利。'第一部分： 打开文件 'File_sum = "E:\code\汇总.xls" 'Set Sum_Workbook = GetObject(File_sum)'第二部分：打开表格'1. Set A_R...

目标：在重复数据中按照一定规则提取、组合。Sub match() Dim i, j, z, n, flag, A, B, C Set A = Worksheets("Sheet1").UsedRange Set B = Worksheets("Sheet2").UsedRange Set C = Worksheets("Sheet3").UsedRang...

https://blog.youkuaiyun.com/iamlaosong/article/details/38434179Sub random_test()Dim RndNumber, temp(20), i, k, Maxrec As IntegerDim myRange As Range'Debug.Print Int((30 * Rnd) + 1)Set myRange = Workshe...

Option ExplicitSub search()'完成对表格单元格中关键字的匹配查找'Debug.Print "~~~~~~~~~~~~~~~~~~~~~~~~"'变量声明Dim column_num, row_num, File_sum, Sum_Workbook, search_file, _ temp_Workbook, sheet_num, key_word...

背景：将多个EXCEL文件中给定的单元格值复制、汇总。不同于以往将一个工作薄中多个表格的复制、汇总，因此，要注意以下几点：获取给定路径下的文件名及其文件个数；打开excel文件的函数调用；Option ExplicitSub copy() Dim i, temp_Workbook, Sum_Workbook, File_sum, File_Dir, myfile '定...

分析两个表格中对应列的重复情况。Sub Match_Dec() '两个表格，表格中的某一列为对应列，查找这两列中的重复记录和差异记录。 Dim ar As Long, br As Long, i As Integer, j As Integer, num As Integer 'ar/br为行数，i为外层循环数控制，j为内层循环数控制 Dim A...

Option ExplicitSub Resize_1()Dim myRange As Range'Set myRange = ActiveSheet.UsedRange'Set myRange = Range(“A2”).Resize(5, 6)'myRange.Select'MsgBox "当前选择的单元格区域地址为： " & myRange.Address'在原区域的基...