1樓：
Public
SubFunc
()Dim
Path
AsString
DimFile
AsString
DimWB
AsWorkbook
.ScreenUpdating
=False
Path
="C:\Users\\Desktop\Work\"
File
=Dir
(Path
&"*.xlsx")Do
While
File
<>""SetWB=
Workbooks
.Open
(Path
&File)WB
.Activate
Range
("A1"
).Select
Range
(Selection
,Selection
.End
(xlDown
)).Select
Range
(Selection
,Selection
.End
(xlToRight
)).Select
Selection
.Copy
Windows
("結果.xlsm"
).Activate
Selection
.End
(xlToLeft
).Select
Selection
.End
(xlDown
).Select
Selection
.End
(xlDown
).Select
Selection
.End
(xlUp
).Select
Selection
.Offset(1
,0).Select
Selection
.PasteSpecial
Paste:=
xlPasteValues
,Operation:=
xlNone
,SkipBlanks:=
False
,Transpose:=
FalseWB.
Close
File
=Dir
Loop
.ScreenUpdating
=True
EndSub參考
access裡的VBA如何建立乙個新錶？
孟中仁 建立表，可以用SQL語句。CREATE TABLE 表名稱 列名稱1 資料型別,列名稱2 資料型別,列名稱3 資料型別,執行SQL語句可以用 DoCmd.RunSQL SQL語句 查詢出的資料，可以用ADO連線來獲取Recordset物件 記錄集 再通過迴圈或者其它方法來獲得資料。大體上非繫...
把上乙個工作中的習慣和心態帶到了新的工作中該怎麼改變？
風再起 首先，擺正自己的位置，擺正自己的心態。給自己做乙個定位。第二，如果自己的心態還跟原來單位一樣的話，要及時調整，實在不行，旅行或者其他方式放鬆下。第三，多跟別人交流，從別人交流中認清和了解自己。 Amy心理行為療癒 職業場就是競爭場，在所難免的會出現一些競爭和小團體，堅持自己做好本職工作，剛到...
剛來到乙個新的工作地方，怎麼融入這個新環境？有點緊張焦慮膽怯 生怕一不小心說錯話？
李捷 如果你求上進，那就主動點 主動自我介紹並認識同事，多眯眼笑，偶爾帶些小點心分享。怕說錯話就少說，多聽，多了解。如果並無野心，那就保持基本的禮貌即可，不卑不亢，不要一眼被人看出是慫人 菜鳥。 純白 事實上新手都有這種體會，害怕自己說錯一句話會被孤立。事實上，每個公司都會去招有實力的員工實力一定 ...