Range 如何寫會比較簡短?

#excel #vba

我愛柴柴 2022-02-16 15:42:02 ‧ 1397 瀏覽

分享至

Sub 巨集3()

Sheets("WSBOM").Select
Range("B65535").End(xlUp).Offset(1, 0).Select

ActiveCell.Value = Sheets("BOM").Range("B1").Value
ActiveCell.Offset(0, 1).Value = Sheets("BOM").Range("C1").Value
ActiveCell.Offset(0, 2).Value = Sheets("BOM").Range("D1").Value
ActiveCell.Offset(0, 3).Value = Sheets("BOM").Range("E1").Value
ActiveCell.Offset(0, 4).Value = Sheets("BOM").Range("F1").Value
ActiveCell.Offset(0, 5).Value = Sheets("BOM").Range("G1").Value

Sheets("WSBOM").Select
Range("B65535").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Sheets("BOM").Range("B2").Value
ActiveCell.Offset(0, 1).Value = Sheets("BOM").Range("C2").Value
ActiveCell.Offset(0, 2).Value = Sheets("BOM").Range("D2").Value
ActiveCell.Offset(0, 3).Value = Sheets("BOM").Range("E2").Value
ActiveCell.Offset(0, 4).Value = Sheets("BOM").Range("F2").Value
ActiveCell.Offset(0, 5).Value = Sheets("BOM").Range("G2").Value

新手發問!!
請問如果我需要從Range B1~RangeG1一直做到 Range B200~Range G200，如何寫會比較簡短?或是可以直接找到BOM所有的行列，不設定一定要1~200(因為有些資料可能只有10筆就不用還要抓到200行)

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2022-02-16 15:53:05

最佳解答

如果 BOM 工作表的資料是連續的
整塊複製貼上會比較快

Sub Main()
    Sheets("BOM").Select
    Range("B1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("WSBOM").Select
    Range("B2").Select
    ActiveSheet.Paste
End Sub