復制合並的單元格並粘貼到新工作表中

Question

我有一個代碼，它將合並的單元格粘貼到另一個工作表中的新合並的單元格中，但它返回錯誤。

主要的問題是，如果我將范圍設置為String類型，例如sRange as String則沒有問題，但是如果我將其設置為Range則沒有輸出，它也會返回錯誤消息。

我的代碼 ：

Sub cmd_Click()

    Dim lastrow As Long, erow As Long, sRange As Range, sCrange As String, cell As Variant


    Set sRange = Sheet2.Range("J10:J500")
    sCrange = "J5:J600"

    For Each cell In sRange
        If Not IsEmpty(cell) Then
            Sheet2.Range(sRange).Copy Sheet4.Range(sCrange)
        End If
    Next      

End Sub

有人可以幫我解決這個問題，謝謝！

Answer 1

更改

Sheet2.Range(sRange).Copy Sheet4.Range(sCrange)

至

sRange.Copy Sheet4.Range(sCrange)

嘗試看看還可以吧

Answer 2

您的代碼更改：Sheet2.Range（sRange）.Copy Sheet4.Range（sCrange）

更改為：Cell.Copy Sheet4.Range（sCrange）.Cell（i）i = i + 1

Answer 3

考慮更改聲明變量的方式，請嘗試：

Option Explicit

Sub cmd_Click()

    Dim lastrow As Long, erow As Long
    Dim sRange As Range
    Dim sCrange As Range
    Dim cell As Range

    Set sRange = Sheet2.Range("J10:J500")
    Set sCrange = Sheet4.Range("J5:J600")

    For Each cell In sRange
        If Not IsEmpty(cell) Then
            sCrange.Value = sRange
        End If
    Next

End Sub