返回列表 上一主題 發帖

再次麻煩 Hsieh 大大

Dim A As Range
With Sheets("資料表")
For Each A In .Range(.[A2], .[A2].End(xlDown))
   With Sheets("表格")
     .[E1] = A
     .[C3] = A.Offset(, 1)
     .[G3] = A.Offset(, 2)
     .[C5] = A.Offset(, 3)
     .[G5] = A.Offset(, 4)
     .[C7] = A.Offset(, 5)
     .[C9] = A.Offset(, 6)
     .PrintPreview '預覽
     .PrintOut '列印
sheets("帶出資料").[B65536].end(xlup).offset(,1)=.[H13].value
    End With
Next
End With
學海無涯_不恥下問

TOP

回復 3# gn00487767
筆誤
sheets("帶出資料").[B65536].end(xlup).offset(1,0)=.[H13].value
學海無涯_不恥下問

TOP

回復 6# gn00487767
程式碼給你,希望你能確實瞭解程式碼意義
相信我這個筆誤,如果你有確實瞭解程式碼,要自行修改並不是問題
學海無涯_不恥下問

TOP

        靜思自在 : 修行要繫緣修心,藉事練心,隨處養心。
返回列表 上一主題