摘要： 1.substitute（需要执行替换操作的单元格区域，旧文本，新文本，第N个旧内容） 例：substitute(A1,"a","b",2) A1=aab>>>A1=abb 2.替换数字内容的特定位置 =SUBSTITUTE(E12,MID(E12,2,3),"***",1)，MID(E12,2,3 阅读全文

摘要： 1.if(EXACT(A2,B2)=TRUE,"相同","不同")，A2，B2相同（字母区分大小写）则函数值true正确，反馈相同，反之返回不同。注：单元格值受空格影响，如果需要过滤掉空格再比较可以写成if(EXACT(TRIM(A2),TRIM(B2))=TRUE,"相同","不同"),其中TRI 阅读全文

摘要： import random #引入random模块，运用random函数list_one=["10081","10082","10083","10084","10085"] #可获得一等奖名单list_two=["10091","10092","10093","10094","10095","100 阅读全文

摘要： 1.substitute(需要执行替换操作的单元格,需要替换的字符,替换后的字符,有多个需要替换的字符可以指定替换的第几个) 例如：aab——substitute("aab","a","b",2)——abb 2.结合正则处理如下，首先在vba写好正则函数（前面已写有完整的正则函数代码），再运用sub 阅读全文

摘要： Sub W() ' MsgBox "行数:" & Selection.Rows.Count Dim rows_count As Integer Dim rows_id As Integer Dim column_count As Integer column_count = Selection.Co 阅读全文

摘要： Private Sub Worksheet_SelectionChange(ByVal Target As Range) '可以直接sub(),不然选择就会触发vba Dim rows_count As Integer Dim rows_id As Integer Dim column_count 阅读全文

摘要： Sub test1() Dim h Dim j As Integer j = 0 Dim n1 As Integer '分行单元格在第几列 Dim m1 As Integer '填充到的列 Dim p As Integer '所有内容的列数 Dim p2 As Integer n1 = InputB 阅读全文

摘要： Sub test1() Dim h Dim j As Integer j = 0 Dim n1 As Integer '分行单元格在第几列 Dim m1 As Integer '填充到的列 Dim p As Integer '所有内容的列数 n1 = 1 m1 = 2 p = 4 'Applicat 阅读全文

摘要： Sub test1() Dim h Dim j As Integer j = 0 '用于辅助循环的进行，可以在拆分行获取下一个需要拆分单元格的行号 'Application.ScreenUpdating = False 'For i = 1 To Range("a65536").End(xlUp). 阅读全文

摘要： Sub a()Dim i人数 As Integer'定义变量Dim i考试成绩() As Integer'定义数组Dim i As Integer'定义变量i人数 = InputBox("输入学生的人数：")'弹出输入框ReDim Preserve i考试成绩(i人数)'根据输入的人数来定义数组的长 阅读全文