[發問] 按鈕使用問題

笨小孩

用"0"一個按鈕能否同時把"B"內容copy到"A"和"D"內容copy到"C"，請指教...謝謝


Sub 按鈕0_Click()

    For i = 1 To 10
        Cells(i, "A").Value = Cells(i, "B").Value
    Next i

End Sub

Hsieh

回復 1# 笨小孩
不是就加入C、D的動作嗎?

1.     Sub 按鈕0_Click()
   
2. 
   
3.     For i = 1 To 10
   
4.         Cells(i, "A").Value = Cells(i, "B").Value
   
5.         Cells(i, "C").Value = Cells(i, "D").Value
   
6.     Next i
   
7. 
   
8. End Sub

複製代碼

笨小孩

謝謝版主指導，成功了是可以的。

笨小孩

Sub 按鈕0_Click()

    For i = 1 To 10
        Cells(i, "A").Value = Cells(i, "B").Value
        Cells(i, "C").Value = Cells(i, "D").Value
        Cells(i, "E").Value = Cells(i, "F").Value
        Cells(i, "G").Value = Cells(i, "H").Value
        Cells(i, "I").Value = Cells(i, "J").Value
        Cells(i, "K").Value = Cells(i, "L").Value
    Next i

End Sub

以上公式進行覆製時時間較耐，有方法解決嗎？謝謝

register313

回復 4# 笨小孩

1. Sub 按鈕0_Click()
   
2. 
   
3.     R = 1
   
4.     For R = 1 To 11 Step 2
   
5.       For I = 1 To 10
   
6.         Cells(I, R).Value = Cells(I, R + 1).Value
   
7.       Next I
   
8.     Next R
   
9. 
   
10. End Sub

複製代碼

笨小孩

Sub 按鈕0_Click()

    For i = 19 To 44
        Cells(i, "H").Value = Cells(i, "L").Value
        Cells(i, "N").Value = Cells(i, "R").Value
        Cells(i, "T").Value = Cells(i, "X").Value
        Cells(i, "Z").Value = Cells(i, "AD").Value
        Cells(i, "AF").Value = Cells(i, "AJ").Value
        Cells(i, "AL").Value = Cells(i, "AP").Value
    Next i
        
End Sub

謝謝register313的回覆，如我把欄和列改變了，應怎樣修改公式？

Hsieh

回復 6# 笨小孩
變數的規則要自己思考一下
For i = 19 To 44 '指定列
   For j = 8 To 42 Step 6 '指定欄，每次跳6欄
      Cells(i, j).Value = Cells(i, j).Offset(, 4).Value  '寫入向右4欄的值
   Next
Next

笨小孩

回復 7# Hsieh


    謝謝Hsieh版主回覆，很清楚解釋修改方法，這覆製動作需時9秒完成，有更快完成的方法嗎？

Hsieh

回復 8# 笨小孩
不會吧!要用到9秒?
應該是你工作表公式非常複雜才會如此耗時

笨小孩

回復  笨小孩
不會吧!要用到9秒?
應該是你工作表公式非常複雜才會如此耗時
Hsieh 發表於 2011-12-18 21:53

    文件只有600k，覆製資料時cpu損耗資源50%以上，應該是硬件資源不足的問題。