摘要: Sub cha() Dim result As String, str1 As String Dim hang As String Dim hha As Integer hha = 0 Dim c As Range, rng As Range result = "航空" result = Appli 阅读全文
posted @ 2022-11-17 15:22 myrj 阅读(550) 评论(0) 推荐(0) 编辑
摘要: Sub fenlie() Dim dict1 As Object Set dict1 = CreateObject("scripting.dictionary") maxr1 = Range("d65536").End(xlUp).Row arr1 = Range("a1:a" & maxr1) F 阅读全文
posted @ 2022-11-17 13:04 myrj 阅读(266) 评论(0) 推荐(0) 编辑
摘要: 在使用VBA编写程序时,有几种常用方法可以在工作表中查找包含已有数据的区域,但这些方法都多少存在一些局限。 Activesheet.Cells(1).CurrentRegion 如果已有数据区域中存在空行或空列,将无法获取正确的区域。 Activesheet.Cells(Activesheet.Ro 阅读全文
posted @ 2022-11-17 10:53 myrj 阅读(269) 评论(0) 推荐(0) 编辑
摘要: 求:多个表格内容相加 公式:=PHONETIC(A2:A7) 说明:Phonetic函数只能对字符型内容合并,数字不可以。 求:前三位 公式:=LEFT(A2,LEN(A2)-8) 说明:LEN计算出总长度,LEFT从左边截总长度-8个 操作 示例 求:-前边的文字 公式:=LEFT(A2,FIND 阅读全文
posted @ 2022-11-17 07:02 myrj 阅读(107) 评论(0) 推荐(0) 编辑