如何從多個工作表的固定位置取數呢
有時工作的需要，我們要歸并統計多個工作表的數據，那 么怎么從多個工作表的固定位置取數據呢？今天小編和大師分享一下。
東西/原料
- excel2003
提取固心猿意馬單位格數據
- 1
案例環境申明：如下圖把一班、二班和三班固心猿意馬A2:A3以及B2:B3數據提取到歸并表那邊
- 2
第二步，點擊東西——宏——Visual Basic 編纂器——點擊插入——模塊，在模塊那邊輸入如下代碼：
Sub 固心猿意馬提取()
Application.ScreenUpdating = False
Dim x
For x = 1 To Sheets.Count
With Sheets("歸并表")
If Sheets(x).Name <> "歸并表" Then Sheets(x).Range("A2:b2", "a3:b3").Copy .Range("a" & .[a65536].End(xlUp).Row + 1) ' Range("A2:b2", "a3:b3")是固心猿意馬單位格區域。
End With
Next x
End Sub
然后運行代碼就可以了。
提取固心猿意馬列不要題目
- 1
案例申明：如下圖，一班、二班、三班學生的姓名和語文成就都固心猿意馬在A列和B列，可以提取三個表的數據到歸并表那邊，但不要題目。
- 2
接著打開Visua Basic編纂器（按ALT+F11)——然后插入模塊——在模塊那邊輸入如下代碼：
Sub 固心猿意馬列提取()
Application.ScreenUpdating = False
Dim x
For x = 1 To Sheets.Count
With Sheets("歸并表")
If Sheets(x).Name <> "歸并表" Then Sheets(x).Range("A2:b" & Sheets(x).[a65536].End(xlUp).Row).Copy .Range("a" & .[a65536].End(xlUp).Row + 1) ' Range("A2:b" & Sheets(x).[a65536].End(xlUp).Row)是固心猿意馬列區域。
End With
Next x
End Sub
設置號令按鈕
- 1
為了便利運行代碼，要設置號令按鈕。點擊視圖——東西欄——控件東西箱——選擇號令按鈕，并畫一個按鈕在某個位置。
- 2
右擊號令按鈕——屬性——在Caption屬性那邊輸入：固心猿意馬提取（就是給號令按鈕重定名）
- 3
同樣右擊號令按鈕——查看代碼——在代碼編纂頁面那邊輸入：固心猿意馬提取（就是方才成立模塊時編寫代碼的名稱），如許此后點擊該號令按鈕就可以運行了。
注重事項
- 但愿能幫忙到你
- 發表于 2019-01-11 00:00
- 閱讀 ( 897 )
- 分類：其他類型
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章