返回列表 上一主題 發帖

請問那裡錯了

回復 5# mmggmm
  1. Sub Ex()
  2.     With Sheets("FORM").Range("C7:K12")
  3.         .Copy Sheets("Data").[A65536].End(xlUp).Offset(1, 0)
  4.         '上式 -> 複製 到指定位置         下式 -> 指定同樣大小的範圍=的值
  5.         Sheets("Data").[A65536].End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count) = .Value
  6.     End With
  7. End Sub
複製代碼

TOP

        靜思自在 : 世上有兩件事不能等:一、孝順 二、行善。
返回列表 上一主題