![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Excel
复制粘贴走天下
90后老阿姨的碎碎念
展开
-
vba dir 判断文件是否存在
我们主要使用VBA中的Dir方法来判断文件是否存在。Dir函数返回的是文件名、目录名或文件夹名称。这里还使用了Len方法判断Dir是否返回了结果。如果Dir返回的值长度为0,则Dir没有返回文件名。Sub Run() Dim filePath As String filePath = "C:\Users\Administrator\Desktop\Merge_Sheet\...原创 2019-02-06 17:01:23 · 5792 阅读 · 0 评论 -
VBA Instr()函数 返回搜索到的字符位置 - VBA函数学习笔记(三)
Instr函数是十分实用的,它可以查询某个字符串在另一个字符串中是否出现,并且返回该查询字符串最先出现的索引位置。Instr函数常常与Mid函数一起使用,会有非常好用的效果。不过Instr函数并非Excel内置的函数,因此,如果要使用Instr函数和Mid函数搭配,那就必须要使用VBA才行。语法InStr([start,] string1, string2 [,compare])参数...原创 2019-08-26 23:33:26 · 16109 阅读 · 0 评论 -
VBA Trim()函数 去除头部和尾部的空格 - VBA函数学习笔记(二)
本期学习的函数是Trim()函数。要处理的字符串前面和后面都有讨厌的空格,必须要把他们去掉,每个单元格的内容才可以保持整齐。因此我们需要使用Trim()函数。语法Trim(String)参数String - 必需的参数,需要Trim()函数处理的字符串。说明这个函数比较简单,只接受一个参数。Trim()函数只会去掉头部和尾部的空格,因此,如果字符串中间有空格,是无法...原创 2019-08-22 23:20:58 · 25326 阅读 · 0 评论 -
VBA Mid()函数 截取字符串 - VBA函数学习笔记(一)
本期介绍的是VBA中的Mid函数。Mid()函数是截取字符串用的,比如“ABCDEF”字符串,我们想截取前面一部分,变成“ABCD”,那我们就需要Mid()函数,摘取网路上的书面解释,Mid()的释义如下:Mid()函数返回给定输入字符串中指定数量的字符。语法Mid(String, Start [,Length])参数String - 必需的参数。需要Mid处理哪个字符...原创 2019-08-21 22:48:19 · 71981 阅读 · 1 评论 -
vba如何判断某个文件夹下是否存在某工作簿
某一个文件夹下存了许多文件,想知道某一文件是否存在,然后依据判断结果进行各样的操作。代码可以这么写:Sub test() Dim fileName As String fileName = ThisWorkbook.Path & "\机密文件.xlsx" If Len(Dir(fileName)) > 0 Then Debug.Print "Yes" E...原创 2019-08-21 22:18:02 · 4525 阅读 · 0 评论 -
option button的分组 在多个option button中如何只能选择一个 vba控件
如何给option button分组,使得用户在选择是或者否的时候,可以二选一或者三选一,而且各个选项之间互不干扰呢。方法非常简单,只要使用groupname设置一下分组就可以了。这里设置一下分组后,同个分组的option button就只能选择一个了,非常方便。GroupName可以是数字也可以是英文,大家可以酌情取名。...原创 2019-08-06 22:13:21 · 4515 阅读 · 0 评论 -
vba中如何使用函数counta
COUNTA是excel中统计非空单元格的函数,有的时候我们在写vba代码的时候也非常需要这个函数。下面记录一下如何使用。Option ExplicitSub test() Dim i As Long Dim j As Long Dim sht_name As String Dim rng As Range Dim wb As Workbook sht_...原创 2019-04-24 23:08:54 · 12912 阅读 · 0 评论 -
vba 实现类似writeLine类似的功能
假设我们单元格里是这样的内容,我们需要根据这个单元格的内容,输出一行一行类似这样:下面的代码就是实现这个功能的Option Explicit' tarStr-需要解析的字符串' startOne-默认取1,表示这个字符串从第1个开始解析Private Function SplitString(ByVal tarStr As String, ByVal sta...原创 2019-04-29 22:06:45 · 1120 阅读 · 0 评论 -
vba 选中所有区域 但是不包括首行
当我们使用VBA将一个工作簿中的所有sheet内容,汇总到一个sheet中时,我们需要复制每个sheet中除首行之外的单元格,然后复制到对应位置。因此,选中所有单元格然后取出首行就显得比较必要。下面是操作的代码,大家可以参考一下。Option ExplicitSub main() Dim rng As Range Set rng = CurrentRegionButFirs...原创 2019-02-09 22:14:18 · 4325 阅读 · 0 评论 -
vba 引用Sheet的几种方法
今天来记录一下如何引用Sheet如果所有的操作都是在当前的Sheet完成的话,是不需要引用Sheet的。举个例子,当前有Sheet1和Sheet2两个Sheet,假设当前选中的是Sheet2,我们输入:Range("A1") = "Hello World",那这两个Sheet中,哪个单元格会被赋值为Hello World呢。答案是Sheet2单元格。当单元格前没有Sheet...原创 2019-02-09 16:12:53 · 36150 阅读 · 0 评论 -
vba 创建txt文件 并且写入字符串
有的时候,我们在操作Excel的时候,最后常常需要输出一个记录的log,这样可以供后期追溯。主要使用CreateTextFile方法。Private Sub CreateTxtFile() Dim fso As Object Dim myTxt As Object Dim MyFName As String Dim i As Integer Dim nowDate...原创 2019-02-08 18:25:26 · 18325 阅读 · 2 评论 -
excel 批量合并多个sheet的数据
Sub Run() Dim tar_wb As Workbook Set tar_wb = CreateWorkbook Call MergeContent(tar_wb)End Sub'函数名: CreateWorkbook'接受参数:无'返回值:Workbook(返回创建的Workbook)'说明:创建一个Excel文件,存放合并的数据Private Functio...原创 2019-02-06 20:00:21 · 6374 阅读 · 0 评论 -
VBA InStrRev()函数 返回搜索到的字符位置 - VBA函数学习笔记(四)
上一篇文章已经学习了Instr()函数,InStrRev()函数正好与Instr()函数相反,查找的方向是相反的。Instr()的查找方向是从左到右,而InStrRev()函数的方向是从右到左。语法InStrRev(string1, string2 [,start, [compare]])参数● string1- 必须的参数,要匹配的字符串;● string2 - 必须的参...原创 2019-08-31 15:51:53 · 10749 阅读 · 0 评论