如何用巨集把excel中每個工作表的第二列提取到新工作表中

2021-08-26 09:13:46 字數 1860 閱讀 6239

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]

office裡面Excel軟體中如何用替換在每個數字前面加

將 替換為 加回車 excel中的回車鍵為 alt 小鍵盤中的1和0,然後放開alt回車 在office軟體excel中,要在所有的數字前加一個字首,怎麼加?如果a1單元格為123 a2單元格為456,那麼在其他單元格輸入公式 中國 a1 並向下複製1行,即可在123 456前加一字首 中國 二字。...

excel表中如何用B等於A加B

如果不許在第三個單元格中編輯公式,那麼只能在第二個單元格中原數字後面輸入 a1 a1為假設a所在單元格地址.以下假定兩個方式,第1行為不加第三列的,第2行為在第三列輸入公式的,如下 a列 b列 c列 1行 a b a1 空白2行 a b a1 b1 從數學的角度都做不到,別說excel了,再加一列吧...

在Excel中如何用year函式和today函式計算年齡

先建立下面的 要紅色圈處插入函式。1 單擊編輯欄上插入函式按鈕。回 2 選擇 答時間與日期。3 選擇year函式。4 單擊確定。在紅色圈處輸入now 單擊藍色圈處確定。現在下圖可以看到年份是2014,在藍色圈處顯示了現在用的公式。在紅色圈處雙擊到下一步。上一步雙擊後,如藍色圈所示編輯公式 year ...