返回列表下一主題上一主題發帖

[發問] 取代的寫法&公式無法正常運算

adam2010

中學生 Rank: 2

帖子: 145
主題: 42
精華: 0
積分: 193
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2010-11-25
最後登錄: 2026-6-10

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-5-8 22:07 | 顯示全部帖子

[發問] 取代的寫法&公式無法正常運算

請教各位高手，如附檔~

在製總表_B.rar (43.29 KB)
1.有一段取代的部分不知道有沒有比較快的寫法？
2.有一段公式我建立的時候可以加總，但是用巨集複製過去使用時卻無法使用，即使將標題複製後以值貼上也一樣，但是重新輸入又OK，不知道是什麼問題？
3.複製過去的公式要拉(複製)到最後一列要怎麼寫？
不好意思! :L 土法煉鋼 + 到處爬文拼湊出來的東西有點凌亂，請各位高手不吝賜教，謝謝！

樓主熱帖

Adam

adam2010

中學生 Rank: 2

帖子: 145
主題: 42
精華: 0
積分: 193
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2010-11-25
最後登錄: 2026-6-10

論壇贊助勳章

2^#

發表於 2013-5-9 00:03 | 顯示全部帖子

感謝Hsieh大如此迅速地回覆，而且如此簡短的程式就將我的疑問都解決了，
而且說明很詳盡，應該可以自己活用，真是太感謝了！

Adam

TOP

adam2010

中學生 Rank: 2

帖子: 145
主題: 42
精華: 0
積分: 193
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2010-11-25
最後登錄: 2026-6-10

論壇贊助勳章

3^#

發表於 2013-5-9 11:13 | 顯示全部帖子

本帖最後由 Hsieh 於 2013-5-9 14:02 編輯

Dear Hsieh大，由於複製公式還有一段是在工作表右側尾端(位置不固定)，我是用
Selection.End(xlToRight).Select
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
'找到最右邊一欄的旁邊那一欄

Sheets("公式").Select
ActiveWindow.LargeScroll ToRight:=3
Range("DL1:DS2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("data").Select
ActiveSheet.Paste
'將公式複製過來
但是我要如何找到公式範圍向下填滿?

Adam

TOP

adam2010

中學生 Rank: 2

帖子: 145
主題: 42
精華: 0
積分: 193
點名: 0
作業系統: Windows7
軟體版本: Office2010
閱讀權限: 20
性別: 男
註冊時間: 2010-11-25
最後登錄: 2026-6-10

論壇贊助勳章

4^#

發表於 2013-5-9 21:02 | 顯示全部帖子

真是太神了，在這個論壇真得顛覆了我對Excel巨集的看法，
最重要的是很多像Hsieh大一樣熱心的人的付出，真是太感謝了！

Adam

TOP

靜思自在 : 天上最美是星星，人生最美是溫情。

返回列表下一主題上一主題