s0302017的博客

Private Sub Worksheet_Activate() Call 单元格字体设置("A1:C100", "宋体", 12) Rows("11:11").Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Hidden = True Colum...

Sub 读取数据库表数据() Dim cnn As New Connection, rs As New Recordset Dim strSql As String, i As Long, Sh As Worksheet Dim t1, t2 As Date On Error Resume Next t1 = Time' cnn.Open "Pro...

Public Sub 读取文本文件数据() Dim str1 As String, sFName As String, iFNumber As Integer, r As Long sFName = Application.GetOpenFilename("文本文件(*.txt),*.txt,所有文件(*.*),*.*", _ 1, "打开文本文件") I...

将A列中相同的内容的行提取出来单独生成新的excel文件，生成的文件名为A列的内容。生成的文件最好自带表头。Sub 提取相同内容() Dim arr arr = Range("A1:C" & [a65536].End(3).Row) Dim i As Long, wName As String, wPath As String wName...

内容：根据需要查找的关键词，在固定的表格中逐行查找。Sub 任意查找() Dim i As Integer Dim strFind As String Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Rows.Count '获得使用的行数 Range("B1").Select strF...

批量获取某一个文件夹下边的文件名，并写入到EXCEl的表中，并根据表格的字段来命名原文件。Sub FSO批量获取文件名()Cells = ""Dim sfsoDim myPath As StringDim Sh As ObjectDim Folder As ObjectApplication.ScreenUpdating = FalseOn Error Resume Next...

Public Function 定表查找(strFind As String) As String Dim i As Integer Dim LastRow As Long Dim rg1, rg2 As Range LastRow = Worksheets("参考模板").UsedRange.Rows.Count '获得使用的行数' strFind ...

Sub 显示列号()    With Worksheets("sheet1")        .Activate        .Range("AZ1").Select    End With    MsgBox Selection.ColumnEnd SubSub 测试显示列号()    Dim intCol As Integer    intCol

Public Sub 获取Word的数据() Dim sFName As String, strFilt As String, strTitle As String Dim docApp As Word.Application, pg As Word.Paragraph Dim i As Long, str1 As String strFilt = "Wo...