返回列表 上一主題 發帖

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

adam2010

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

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-5-8 22:07 | 顯示全部帖子

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

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

adam2010

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

論壇贊助勳章
2#
發表於 2013-5-9 00:03 | 顯示全部帖子
感謝Hsieh大如此迅速地回覆，而且如此簡短的程式就將我的疑問都解決了，
而且說明很詳盡，應該可以自己活用，真是太感謝了！
Adam

TOP

adam2010

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

論壇贊助勳章
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

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

論壇贊助勳章
4#
發表於 2013-5-9 21:02 | 顯示全部帖子
真是太神了，在這個論壇真得顛覆了我對Excel巨集的看法，
最重要的是很多像Hsieh大一樣熱心的人的付出，真是太感謝了！
Adam

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題