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

adam2010

請教各位高手，如附檔~ 在製總表_B.rar (43.29 KB)

下載次數: 15

2013-5-8 22:05

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

Hsieh

回復 1# adam2010

1. Sub ex()
   
2. With Sheets("data")
   
3. .Cells.Clear '清空工作表
   
4.    Sheets("Original").UsedRange.Copy .[A1] '複製資料
   
5.    .Columns("C").Replace "*計", "" '將含有"計"的儲存格清空
   
6.    .Columns("C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '將上列清空的位置整列刪除
   
7.    .Columns("A").UnMerge 'A欄取消合併
   
8.    .Rows(1) = .Rows(1).Value '標題列重新給值，可將原來數值存成文字部分改成數值
   
9.    For i = 6 To 23 '分欄執行取代動作加快速度
   
10.       .UsedRange.Columns(i).Replace "-", "" '去除-號
    
11.    Next
    
12.    .[F:P].Insert '插入欄
    
13.    Sheets("公式").[F1:P2].Copy .[F1] '複製公式
    
14.    r = .Cells(.Rows.Count, 5).End(xlUp).Row '資料列數
    
15.    .Range("F2:P2").AutoFill Destination:=.Range("F2:P" & r) '公式向下填滿
    
16. End With
    
17. End Sub

複製代碼

adam2010

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

adam2010

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
    '將公式複製過來
但是我要如何找到公式範圍向下填滿?

Hsieh

回復 4# adam2010

1. Sub ex()
   
2. With Sheets("data")
   
3. .Cells.Clear '清空工作表
   
4.    Sheets("Original").UsedRange.Copy .[A1] '複製資料
   
5.    .Columns("C").Replace "*計", "" '將含有"計"的儲存格清空
   
6.    .Columns("C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '將上列清空的位置整列刪除
   
7.    .Columns("A").UnMerge 'A欄取消合併
   
8.    .Rows(1) = .Rows(1).Value '標題列重新給值，可將原來數值存成文字部分改成數值
   
9.    For i = 6 To 23 '分欄執行取代動作加快速度
   
10.       .UsedRange.Columns(i).Replace "-", "" '去除-號
    
11.    Next
    
12.    .[F:P].Insert '插入欄
    
13.    Sheets("公式").[F1:P2].Copy .[F1] '複製公式
    
14.    r = .Cells(.Rows.Count, 5).End(xlUp).Row '資料列數
    
15.    .Range("F2:P2").AutoFill Destination:=.Range("F2:P" & r) '公式向下填滿
    
16.    k = .UsedRange.Columns.Count + 1 '得到已使用欄位數
    
17.    Sheets("公式").[DL1:DS2].Copy .Cells(1, k) '複製公式到表尾
    
18.    .Cells(2, k).Resize(, 8).AutoFill .Range(.Cells(2, k), .Cells(r, k + 7)) '向下填滿
    
19. End With
    
20. End Sub

複製代碼

adam2010

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