1樓:姜年尚
1,程式為:
sub 提取第二行()
dim wks as worksheet, sht as worksheet
on error resume next
set wks = worksheets("彙總表")
if err <> 0 then worksheets.add(before:=sheets(1)).name = "彙總表"
for each sht in sheets
if sht.name <> "彙總表" then
sht.range("a2").entirerow.
copy sheets("彙總表").range("a" & sheets("彙總表").cells(rows.
count, 1).end(xlup).row + 1)
end if
next
end sub
2,如果沒有彙總表則新建彙總表。將非彙總表的其他表裡面的第二行分別複製並貼上進彙總表,貼上位置為a列的第一個空白行。
2樓:
假如提取的資料要放在「電流彙總表」裡,可以使用下面的巨集:
sub 提取()
with sheets("電流彙總表")
.cells.clear
for i = 1 to 128
sheets("cycle " & i).columns(2).copy .cells(1, i)
next
end with
end sub
3樓:
sub 電流表()
for i = 1 to 128
sheets("cycle " & trim(str(i))).select
columns("b:b").selectselection.copy
sheets("電流").select
if i <= 26 then
bt = chr(i + 64) + ":" + chr(i + 64)
else
hh1 = int(i / 26)
hh2 = i mod 26
if hh2 = 0 then
hh1 = hh1 - 1
hh2 = 26
end if
bt = chr(64 + hh1) + chr(64 + hh2) + ":" + chr(64 + hh1) + chr(64 + hh2)
end if
columns(bt).select
activesheet.paste
next i
end sub
vba excel中如何使用巨集將一個工作表中符合條件的某部分資料複製放在另一個工作表?
4樓:
以下**,資料在sheet1的a到d列,表頭在第二行
取前三個複製到h列
set conn = createobject("adodb.connection")
conn.open "provider=microsoft.jet.
oledb.4.0;extended properties=excel 8.
0;data source=" & thisworkbook.fullname
sql = "select top 3 * from [sheet1$a2:d] order by 銷量 desc"
[h3].copyfromrecordset conn.execute(sql)
conn.close: set conn = nothing
[a2:d2].copy [h2]
excel巨集設定,excel中如何啟用巨集
興堅成後文 在excel裡面安全性設為中,而且檔案裡面有寫巨集,則開啟檔案的時候會出個對話方塊,問是否啟用巨集,如果點是,則可以執行巨集命令,如果點否,則巨集不能正常執行。注 巨集是excel裡面編寫的程式 魚木混豬喲 檔案,選項 信任中心,信任中心設定,巨集設定,啟用巨集即可在excel中按下al...
excel中如何用vba將工作表sheet1重新命名,因為要重
20時13分14秒 sub rename mydate format date,409 dd mmm yy 得到美式的日期格式 mymonth split mydate,split此日期格式,找到當前的月份的英語簡寫 myname ucase mymonth 1 ucase mymonth 0 ye...
excel中怎樣把每個工作表批量新增超連結
請參考如下步驟在第一個工作表自動批量生成指向後續各個工作表的超鏈目錄 1 把游標放在第一個工作表希望插入目錄的地方 2 鍵入alt f11開啟vba編輯器,然後選擇選單 插入 模組 3 在 編輯區貼上如下 option explicit sub autogeneratehyperlinks dim ...