lijil168的专栏

选中F2：G2，双击选择框右下角的小矩形，自动填充公式得到汇总结果。Crtl V 粘贴公式（A1单元格），即可得到要处理的数据。用vlookup()进行精确查找，匹配条件为0（False）选中E列，数据，删除重复项，得到要汇总的同类项。在名称框输入C8，回车，选中右下角的C8单元格。按下Shift键，再选择A1单元格，选中A1单元格，Ctrl C。用sumif()汇总同类项。将A列的值粘贴到E列。

Mid 函数返回 Variant (String) 值，该值包含某个字符串中指定数目的字符。 语法 Mid(string, start[, length]) Mid 函数语法具有下面这些命名参数： 部分 说明 string 必选。要从中返回字符的字符串表达式。如果 string 包含 Null，则返回 Null。 start 必选，Long 类型。表示在

access vba编程中新建查询时，如果新建的查询名在数据库中已经存在，程序将出错。因而，在新建查询前应查看查询名是否存在。Dim dbsCurrent As DatabaseDim qryTest As QueryDefSet dbsCurrent = CurrentDb'---------------------查看查询.Query_temp是否存在---------

编程完成数据库与文件的数据相互存取'VB/VBA中实现数据库中的文件存取 '示例数据库为ACCESS数据库,用SQL数据库的话,只需要改连接字符串''*************************************************************************'**'** 使用 ADODB.Stream 保存/读取文件到数据库

Sub test()Dim Mypath, MyNameDim n As Integern = 0Dim MyStr() As String, wz As IntegerMypath = ThisWorkbook.Path & "\第三方2\"    ' 指定路径。MyName = Dir(Mypath, vbDirectory)   'Do While

1、直接采用Open函数+Line input命令Private Sub txt_read() Dim txt As String Open "D:\dzh.txt" For Input As #1 ' '对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用， '并决定缓冲区所使用

方法1. 用VBA自带的dir()判断，代码如下：在 Microsoft Windows 中， Dir 支持多字符 (*)和单字符 (?) 的通配符来指定多重文件Visual Basic FunctionIsFileExists(ByValstrFileNameAsString)As

Sub copy() Dim rg As Range On Error GoTo No Set rg = Cells(ActiveCell.Row, 2) rg.Select Dim sTemp As String, s() As String 's = Replace(sTemp, vbCrLf, ";") 's = Repla

Option ExplicitSub Find()Dim myWorkbook As WorkbookDim ws As WorksheetDim rg As Range, rg2 As RangeDim rgFirst As RangeDim nLength As Integer, i As IntegerDim strTmp As StringDim strFilePath

Option ExplicitSub Find()Dim myWorkbook As WorkbookDim ws As WorksheetDim rg As Range, rg2 As RangeDim rgFirst As RangeDim nLength As Integer, i As IntegerDim strTmp As StringDim strFilePath

Private Sub Workbook_Open() Macro1End SubOption ExplicitSub del() Rows("1:10").Delete Shift:=xlUp 'Columns("A:B").Delete Shift:=xlToLeft Range("A:B,D:AC,AE:AO,AQ:AT,AW:AW,AY:CM"

用offset,int,mod等函数实现excel列数据与矩阵数据的变换，用公式比较方便。注意，本例子矩阵数据是先按列，再按行填充数据。如果想先按行，再按列填充数据，可以再进行装置，也可以修改一下公式即可。列变矩阵 6行：IF(ROW()>6,"",OFFSET($A$1,(ROW()-1)*1+(COLUMN()-3)*6,0,1,1))矩阵变列：OFFSET($C$1,MOD(R...

1、Excel公式：用COUNTIF函数进行排序=IF(COUNTIF(B$2:B8,B8)=1,A7+1,IF(B7=B8,A7,"?有重复"))2、用COUNTIFS函数进行查重=COUNTIFS(B$2:B8,B8,C$2:C8,C8)3、用LOOKUP函数对无序表进行精确查询，参考：http://www.itblw.com/graphic/139fcf04c0517...

1、合并同类项：=INDEX(A2:A8,MATCH(0,COUNTIF(B$1:B1,A2:A8),0))&"" Ctr+Shift+Enter=INDEX(A$2:A$8,MATCH(0,COUNTIF(C$1:C1,A$2:A$8),0))Ctr+Shift+EnterCOUNTIF(B$1:B1,A2:A8)从range B$1:B1中计算A2:A8各元素出现的...

用公式提取多个Excel文件的数据待提取数据的Excel文件新建公式，提取文件名提取文件名到Excel中用文件名和地址组成字符串将引用的字符串以数字类型粘贴用查找和替换功能在字符串前加“=”用查找和替换功能更改单元地址的引用方式，提取其他数据待提取数据的Excel文件在文件夹 E:\temp\销售清单\ 中是不同公司的销售清单Excel文件。现在要将所有公司地址提取到一新的Excel中进行汇...

'strQuery是表名，查询名等Public Function Getrs(Byval strQuery as string) as ADODB.RecordsetDim objRs As New ADODB.Recordseton Error GoTo Error_GetrsobjRs.open strQuery,CurrentProject.connection'

Private Sub Workbook_SheetActivate(ByVal sh As Object)Dim shrt As WorksheetDim rg As RangeDim rgChartData As RangeDim chrt As ChartOn Error GoTo NO'Application.ScreenUpdating = FalseSet

Excel 2007 筛选后的复制粘贴 在Excel 2007中，有时需要把筛选后的数据复制粘贴到另一个表中 ，但是粘贴时发现结果并不是筛选出来的数据，而是所有的数据。这个 问题可以用下面三个方法来解决。 方法1：进行两次以上的筛选操作，筛选操作可以是同一列或不同 列。只进行一次筛选操作，表面上选择的是筛选后的数据，其实包括了 未筛选的全部数据。所以我们在筛选后进行复制粘贴时，

1、利用JamShellBrowser for ActiveX '转载请注明:本文来自:Excel吧 (www.excelba.com) 详细出处参考：http://www.excelba.com/Art/Html/104.html  Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (

常数　　　　值　　　　　　　　　描述vbCr　　　　Chr(13)　　　　　　回车符。vbCrLf　　　Chr(13)&Chr(10)　　回车符与换行符。vbLf　　　　Chr(10)　　　　　　换行符。vbTab 　　　Chr(9)　　　　　　制表符

vba:Sub tt()'CommandBars("Menu Bar").FindControl(Id:=109, Visible:=True, Recursive:=True).Execute'Application.CommandBars.FindControl(Id:=109).Execute On Error GoTo ErrorHandler ActiveWindow.Vie

excel vba真正的动态数组实例一、动态数组的定义　　动态数组的定义，一开始不需要给数组标明上界和下界。直接定义即可，如下面的代码：　　Dim MyStr() As String　　这样，就定义了一个动态数组及其名称：MyStr()，现在，该数组的上界下界都是个未知数，也就是说，数组中到底有没有内容或到底有什么内容，是个未知数。　　因此，要使用动

http://www.excelpx.com/thread-205471-1-1.html在vba 中使用的sql提供的通配符主要有四种 '%', '_', '[ ]', '[ !]'。下面对通配符做一些简单说明：1、'%'表示无数个字符串，如用like 's%'，即可查出以s开头的值；如用like '%s_'查出倒数第二位为s的值；如用like '%s%'，即可查

详细可参考：http://club.excelhome.net/thread-859194-1-1.html1、需要引用Microsoft ActiveX Data Object...Sub GetQuery()  Dim cn As ADODB.Connection  Set cn = New ADODB.Connection  With cn  .Provider = "Micro

'CommandBars ；SendKeysSub tt()'CommandBars("Menu Bar").FindControl(Id:=109, Visible:=True, Recursive:=True).Execute'Application.CommandBars.FindControl(Id:=109).Execute On Error GoTo ErrorHandler

待统计数据重复次数      D:\1"=COUNTIF($A$2:$A2,$A2)"   31      2r1      32      33        

Sub Macro3()Application.OnKey "^h", "sHide" '仅隐藏选择的行2013.3.15 by lijilinApplication.OnKey "^+h", "sNHide" '仅显示选择的行2013.3.15 by lijilinEnd Sub Sub sHide() Application.ActiveWorkbook.Activ

当excel 经多次筛选后，range数据区域可能含不连续的多个range，要想处理所有数据（包含隐藏的数据），可以按每行每列分 别处理。 Dim ws As Worksheet  Dim rg As Range  Set ws = ThisWorkbook.ActiveSheet  Dim nEndRow As Integer  '求sheet的行数和列数  Dim nEnd

1、批处理文件name.bat-》放到要取得文件信息的文件夹中dir *.*>temp.txt运行name.bat将文件信息输入到temp.txt文件中。 2、将temp.txt的内容考入excel。 3、对文件信息分列：单击【数据】→分列→选择按分隔符分列→下一步中输入分隔符 | →完成。 4、如需要进一步对信息细分，可再次借助【数

Option ExplicitPrivate Sub MyFirstSubRoutine()Dim bOpen As BooleanbOpen = MsgBox("Hello World!")End Sub'Set rg = ws.Cells(nRow, nColumn)'Set rg = ws.Range(ws.Cells(2, 2), ws.Cells(8, 8))

Option ExplicitSub FindNode()Dim myWorkbook As WorkbookDim ws As WorksheetDim rg As RangeDim rgFirst As RangeDim nLength As IntegerDim strTmp As StringDim strFilePath As String '第三方2文件夹中导入xml