請修改程式

myleoyes

各位前輩你們好!
       Sub Ex()
      With Sheets("學習")
      .[A65536].End(xlUp)(1, 1).Copy .[A65536].End(xlUp)(2, 1)
      .[A65536].End(xlUp)(1, 1).Offset(-1, 0) = [A65536].End(xlUp)(1, 1)
      .[B65536].End(xlUp)(1, 1).Copy .[B65536].End(xlUp)(2, 1)
      .[B65536].End(xlUp)(1, 1).Offset(-1, 0) = [B65536].End(xlUp)(1, 1)
      .[C65536].End(xlUp)(1, 1).Copy .[C65536].End(xlUp)(2, 1)
      .[C65536].End(xlUp)(1, 1).Offset(-1, 0) = [C65536].End(xlUp)(1, 1)
           '...等等
    End With
End Sub
       問題如附檔說明
       請知道的前輩,不吝賜教謝謝再三!!

stillfish00

回復 1# myleoyes

1. Sub Ex()
   
2.     With Sheets("學習").[A65535].End(xlUp).Resize(1, 15)
   
3.         .Copy
   
4.         .Offset(1).PasteSpecial Paste:=xlPasteFormulas
   
5.         .Offset(1).PasteSpecial Paste:=xlPasteFormats
   
6.         .PasteSpecial Paste:=xlPasteValues
   
7.     End With
   
8. End Sub

複製代碼

GBKEE

回復 1# myleoyes
AutoFill 方法  特定對指定範圍中的儲存格進行自動填滿。為 Variant。

1. Option Explicit
   
2. Sub Ex()
   
3.     With Sheets("學習").[A65535].End(xlUp).Resize(1, 15)
   
4.         .AutoFill Destination:=.Resize(2), Type:=xlFillDefault
   
5.         .Value = .Value
   
6.     End With
   
7. End Sub

複製代碼

myleoyes

回復 3# GBKEE
stillfish00  前輩!程式OK!謝謝再三!!
良師!謝謝!!果然技高一籌
          再請教2個問題
                  問題一
          當A1顯示 支出123
          按鈕 B1=123(值)
          如果A1顯示 支出456789
          按鈕 B1=456789(值)
          也就是說B1只取A1的數字部份
                   問題二
            ZZ = Application.InputBox("請選取# 支出＝(H欄) #", "支出費用", "=INT(/2)", Type:=0)
    If [E1] = "" Then
    [E1] = ZZ
    Else
    If ZZ <> False Then [E1] = ZZ & "+" & Mid([E1].FormulaR1C1, 2)
    If ZZ = "" Or ZZ = False Then Exit Sub
    End If
    [E1]=INT(Sheet4!$H$3/2)+INT(Sheet1!$H$3/2)
    [E1]的型態是所需
    但如果將對話框預設"=INT(/2)"去掉改成
    ZZ = Application.InputBox("請選取# 支出＝(H欄) #", "支出費用", Type:=0)
    執行程式[E1]的型態也是[E1]=INT(Sheet4!$H$3/2)+INT(Sheet1!$H$3/2)
    小弟這樣子改不行耶!
    ZZ = Application.InputBox("請選取# 支出＝(H欄) #", "支出費用", Type:=0)
    If [E1] = "" Then
    [E1] = "=" & "int" & "(" & ZZ & "/2)"
    Else
    If ZZ <> False Then [E1] = "=" & "int" & "(" & ZZ & "/2)" & "+" & Mid([E1].FormulaR1C1, 2)
    If ZZ = "" Or ZZ = False Then Cancel = True
    End If
    請問要如何修改才能完成
    以上2個問題,請知道的前輩,不吝賜教謝謝再三!!

stillfish00

回復 4# myleoyes
1.   
    mid取出數字部分再轉數字型態
    =--Mid(A1,3,Len(A1)-2)
2.
    你寫的  If ZZ <> False Then [E1] = "=" & "int" & "(" & ZZ & "/2)" & "+" & Mid([E1].FormulaR1C1, 2)
    式中的ZZ含有等號 , 改 Right(ZZ , Len(ZZ)-1) 看看

myleoyes

回復 5# stillfish00
前輩!程式OK!謝謝再三!!辛苦囉!