有關EXCEL拖拽的問題

2022-05-19 10:30:03 字數 1344 閱讀 8127

1樓:

這個是沒有辦法的,除非你編巨集。

以下是我做的一個月份累計的例子,拋個磚頭:

attribute vb_name = "模組1"

sub 月合併()

dim msheet as sheets

for i = 1 to activeworkbook.sheets.count - 1

for j = 1 to 20

if (activesheet.cells(3, j) = "合計") then

exit for

end if

next j

for k = 1 to 100

if (activeworkbook.sheets(i).cells(3, k) = "月合計") then exit for

next k

if (activeworkbook.sheets(i).cells(3, k) <> "月合計") then

msgbox ("表「" & activeworkbook.sheets(i).name & "」沒有「月合計」,故沒有統計")

goto nextsheet

end if

activesheet.columns(j).select

selection.insert shift:=xltoright, copyorigin:=xlformatfromleftorabove

activesheet.cells(3, j) = activeworkbook.sheets(i).name

range(cells(5, j), cells(47, j)).formular1c1 = "='" & activeworkbook.sheets(i).

name & "'!rc[" & k - j & "]"

nextsheet:

next i

range(cells(5, j + 1), cells(47, j + 1)).formular1c1 = "=sum(rc[" & (2 - j) & "]:rc[-1])"

end sub

2樓:成都豺狼

引用不同工作表的某一個位置的資料,例如 =sheet1!b2

彙總要根據需要選擇函式,例如 =sum(sheet1:sheet10!b2)

3樓:匿名使用者

點選表1shift1中的d5,然後按住ctrl點選工作簿下面的shift2和shift3,就選中這三個表中的同一位置d5了

4樓:萊昂納德_尤拉

=indirect("'表

有關Excel利用條件格式設定的問題

先給你糾正一個概念,excel中橫的叫行,用行號12345等數字表示,豎的叫列,用列標abcd等字母表示。所以你說法的1 3列是錯誤的,應該是在1 行。再給設定條件格式的方法 選擇a4 g16,條件格式,管理規則 新建規則 用公式確定要設定格式的單元格,公式 min if b 1 g 3 a4,ro...

有關excel選擇題,有關Excel選擇題

1 d2 b 3 c4 c 5 如果答案c中最後一項是 圖表製作。那麼勉強可以作為正確答案。6 b7 a 8 a9 c 10 a 11 a 12 題目有問題。各類資料中 數值靠右,文字靠左,邏輯值居中13 d 1d 2d 3a 4c 5c 6d 7a 8a 9c 10a 11a 12b 13d 1 ...

Excel向下填充問題,EXCEL填充問題

單元格外框右下角有一個小黑點 即填充柄 在d1單元格寫入1後雙擊這個小黑點,就可以完成你的操作了 前提是d列的資料是連續的 否則就只有在名稱框中寫入要填充的區域 按下回車鍵 寫入1 再按下 ctrl d 如何快速填充 方法1,雙擊填充柄,可填充,如果前一列連續多行,則填充相同多行 方法2,先輸入要填...