返回列表 上一主題 發帖

[發問] 按鈕使用問題

回復 4# 笨小孩
  1. Sub 按鈕0_Click()

  2.     R = 1
  3.     For R = 1 To 11 Step 2
  4.       For I = 1 To 10
  5.         Cells(I, R).Value = Cells(I, R + 1).Value
  6.       Next I
  7.     Next R

  8. End Sub
複製代碼

TOP

        靜思自在 : 君子如水,隨方就圓,無處不自在。
返回列表 上一主題