回复：Excel可以做什么，Excel工作笔记[全员乱入]

好久没更新了，再放两段代码。
工作时间长了 vba 越用越少
这段代码将选中的表格按行列拆开变成原始的数据，可以看成数据透视表的逆向操作。
选中区域运行就好。速度应该也快。输出是在选中区域的右边
代码比较精简，希望可以给大家提供些思路。
Sub UnPivot()
Dim i As Integer
Selection.Resize(1, 3).Offset(0, Selection.Columns.Count + 1) = Array("RowHeader", "ColumnHeader", "Value")
For i = 2 To Selection.Columns.Count
With Selection.Resize(Selection.Rows.Count - 1, 1).Offset(1 + (i - 2) * (Selection.Rows.Count - 1), Selection.Columns.Count)
.Offset(0, 1) = Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1, 1).Value
.Offset(0, 2) = Selection.Cells(1, i).Value
.Offset(0, 3) = Selection.Offset(1, i - 1).Resize(Selection.Rows.Count - 1, i).Value
End With
Next
End Sub

从同一个文件夹里边打开所有符合条件的文件，处理，然后关闭
Sub LoopFiles()
Dim sFolder As String
Application.ScreenUpdating = False
sFolder = "Y:\_OutCADIS\Bulk Uploader History\2014 11 20 CDS Sector History FIx\HistoryData\"
Dim sFile As String
sFile = Dir(sFolder & "*.csv")
Do While Len(sFile) > 0
Application.StatusBar = sFile
Workbooks.Open sFolder & sFile, UpdateLinks:=False, ReadOnly:=True, local:=True
'-------------------------------------------
Rows("3:" & Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row).Copy
Workbooks("Book8").Activate
Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'-------------------------------------------
Workbooks(sFile).Close False
sFile = Dir()
Loop
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub

不感兴趣

开通SVIP免广告

打开一个文件夹里边符合名称条件的所有文件，处理然后关闭。没什么特别的，展示下代码和思路。
Sub LoopFiles()
Dim sFolder As String
Application.ScreenUpdating = False
sFolder = "C:\"
Dim sFile As String
sFile = Dir(sFolder & "*.csv")
Do While Len(sFile) > 0
Application.StatusBar = sFile
Workbooks.Open sFolder & sFile, UpdateLinks:=False, ReadOnly:=True, local:=True
'------------------------------------------- 打开后想干什么放这里
Rows("3:" & Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row).Copy
Workbooks("Book8").Activate
Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'-------------------------------------------
Workbooks(sFile).Close False
sFile = Dir()
Loop
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub

以EXCEL为数据源的邮件合并功能是个好东西

求用excel做

小吧您好，有个关于用Excel获取网站信息的问题困扰我很久，一直没法解决，求帮助（我会一点VBA，会写简单代码）。
我每天需要打开右面的网址tmsearch.uspto.gov 选择表格中Basic Word Mark Search (New User) 选择live 输入要查询的单词打个比方： test 点击Sumbit Query 看一下该单词是否已经注册，能不能使用。具体可看下图。

按以前的操作思路，我录制宏，分析，然后找到变量其实就是下方的网址的test，然后查别的单词用变量替代循环就好。
http://tmsearch.uspto.gov/bin/showfield?f=toc&state=4809%3A9jxx2j.1.1&p_search=searchss&p_L=50&BackReference=&p_plural=yes&p_s_PARA1=live&p_tagrepl%7E%3A=PARA1%24LD&expr=PARA1+AND+PARA2&p_s_PARA2=test&p_tagrepl%7E%3A=PARA2%24COMB&p_op_ALL=AND&a_default=search&a_search=Submit+Query&a_search=Submit+Query
这个网址的细节部分可能每天有变化，这个问题也不大，只要每天先手工操作一下，复制网址用find查询的单词test也能解决。
但是最没办法的是，这段网址用录制宏的代码VBA不认，同样的网址走VBA就会显示This search session has expired，如果直接录制宏也会报错，但是复制到IE就能打开。这点实在没法解决了，求帮助，谢谢！