在Excel中，我们需要把一个工作表的数据拆分到多个独立的工作表中。 即以数据的某个字段命名创建工作簿，然后在对应的工作表中的添加该对应的数据 运行下面代码，把5条数据拆分到5个新建的表中。 Sub 拆分工作表() Dim ...

Excel表格中，我们经常需要插入行，列等操作 当然这是很简单的事情，只需要右键-插入 行或者列就可以。 但是如果要各行插入，或者插入多行呢？这样手动插入显得相当复杂了。 下面介绍一下用vba如何插入多行，这几个代码都可以在Excel中插...

VBA密码破解代码-支持xls,xla,xlt等格式 测试使用过，有效 Private Sub CommandButton1_Click()   VBA_Decryption End Sub Sub VBA_Decrypti...

Excel是电子表格，我们可以直接在里面插入数据。 直接能修改，有时容易对表格数据直接修改而导致错误 所以这里我们利用vba代码ADO来添加数据。 Sub ADOaddnew() Dim Cn, Rs, arr, i As In...

从全路径文件名中获取文件名（不含路径） 方法一： Public Function gf_GetFileName(strFullPath As String) As String Dim splitList As Vari...

在Excel中，我们需要对单元格内的文字做一些格式化设置 比如加粗，对齐，字号，字体等设置 通过下面的代码可以直接修改区域范围内容的单元格格式 Sub FormatRange() With Range("A1:B10") ...

批量删除空白行，在Excel表格中经常需要做的动作。 之前我们讲过用定位的方法找到空值删除 《Excel批量删除空白行》 下面说说用代码的方法批量删除空白行，如下图，B列中有空值的行 运行下面的代码，删除B列中的空行 Co...

在Excel数据表中， 我们可能因为某些原因删除了部分数据，或者漏输入了数据。 但是数据是有顺序的，而这部分数据是在数据表中间的任何位置。如果手动插入再录入数据就会当然麻烦 如下图中，某些月份被删除了。希望间隔插入所有月份 B列是辅助...

在Excel表格中，我们为了突出显示选中的记录。有时希望高亮显示点击的行。 在当前工作表的Worksheet_SelectionChange事件添加下面的代码，可在鼠标点击后高亮显示该行数据。 Private Sub Worksheet_...

工作场景中，可能有时处理数据之前，可能需要使用VBA先判断待处理的Excel文件是否已经被别人打开，如果打开，需要提示先关闭或代码强制关闭。 那如何判断工作簿已经被打开呢，有以下一些方法 方法1： Const strFileNa...

Sub test1()     Dim strTest As String     Dim arrResult() As String     Dim i As Inte...

Private Sub btnUpdate_Click() Dim values(3) Dim u As Long u = ListBox1.ListIndex If u <> -1 Then ...

Excel VBA给Listbox 或ComboBox 设置 时出现权限拒绝的错误解决办法 英文的错误 提示： Run time error 70: Permission denied 这种情况多数是在Listbox的属性设...

在Excel表格中，有下载下来的大量包含网址链接的文本 希望能批量提取所有文本的链接地址，如下图 通过下面代码。可以直接提取超链接地址。使用Range.offset属性向右偏移一个单元输出结果 Sub ExtractHyperli...

在Excel数据表格中有些网页图片的链接。希望把这些链接转变成对应的图片 通过下面代码，可以先把图片文本地址转变成超链接格式 然后插入图片到链接对应的单元格内，可以先设置单元格的长宽，这样图片会按单元格大小自动生成 Sub Hyper...