VBA 없는 셀의 내용을 복사하는 방법선택한다.

VBA 없는 셀의 내용을 복사하는 방법선택한다.

나는 그 방법을 사용할 수 있는 방법을 쓰고 있습니다.Target그리고 그 세포를 정확히 다른 세포에 붙여넣습니다.셀은 화려한 포맷의 배송 라벨입니다.제가 할 수 있는 방법이 있을까요?

원래 저는 이것을 가지고 있습니다.

Worksheets("Label").Range("A1").Value = Worksheets("Get Address").Range("A28").Value

그것은 평이한 텍스트에 효과가 있었습니다.하지만 제가 만든 스타일링을 잃어버렸는데, 첫 줄 이후로 스타일이 다르기 때문에 그들은 다릅니다.

또한 매크로 레코더를 사용해 보았는데 사용할 수 있는 솔루션을 얻었습니다..Select, 가능한 한 사용하지 않기 위해 이 질문을 읽었습니다.어쩌죠?

' Created by the Macro Recorder
Range("A28:A33").Select
Range("A33").Activate
Selection.Copy
Sheets("Label").Select
Range("A1").Select
ActiveSheet.Paste

Worksheets("Get Address").Range("A33").Copy _
       Destination := Worksheets("Label").Range("A1")

값을 복사하여 붙여넣은 후 다음을 사용합니다.

Worksheets("Label").Range("A1").value = _
   Worksheets("Get Address").Range("A33").value

이 문장은 클립보드를 사용하지 않습니다.

범위의 각 셀을 순환하여 대상 대상에서 각 셀의 값, 주석 등을 복사하고 설정할 수 있습니다.여기 예가 있어요.

Sub CopySpecial(p_RangeFrom As String, p_OffsetRow As Integer, p_OffsetColumn As Integer)

    Dim l_Row As Integer
    Dim l_Column As Integer
    Dim thisCell As Range
    Dim l_TargetCell As Range

    l_Row = Range(p_RangeFrom).Row
    l_Column = Range(p_RangeFrom).Column

    For Each thisCell In Range(p_RangeFrom)

        Set l_TargetCell = Range(Cells(thisCell.Row + p_OffsetRow, thisCell.Column + p_OffsetColumn).Address)

        ' Copy the text
        l_TargetCell.Value = thisCell.Value

        ' Copy the comment only if we have a comment to copy
        If Not thisCell.Comment Is Nothing Then

            ' Delete any existing comment in the target cell, if any.
            ' If you don't to this the .AddComment Method below will fail.
            If Not l_TargetCell.Comment Is Nothing Then l_TargetCell.Comment.Delete
            Call l_TargetCell.AddComment(thisCell.Comment.Text)

        End If

        ' Add more items to copy here, such as color, etc.

    Next

End Sub

Sub TestCall()
    Call CopySpecial("A1:B2", 3, 3)
End Sub

언급URL : https://stackoverflow.com/questions/16698644/vba-how-to-copy-the-content-of-a-cell-without-select