두 개의 데이터 열을 특정 순서로 한 행으로 오프셋하려고하는데 오프셋 기능을 제대로 설정할 수 없습니다.
다음과 같은 것이 있습니다.
ColumnA ColumnB
1 10
2 20
3 30
4 40
5 50
그리고 나는 ActiveCell
선택할 수 있는 주어진 것부터 시작하여 1 행, 여러 열을 얻으려고합니다 (1 10 2 20 3 30 4 40 5 50)
지금까지 내 코드는 다음과 같습니다.
Sub OffsetData1()
Dim lRow As Long
lRow = 0
Do
lRow = lRow + 1
If IsEmpty(Cells(lRow, 2)) Then Exit Do
Cells(lRow, 2).Copy
ActiveCell.Offset(1, 1).PasteSpecial
Loop
End Sub
어떤 도움이라도 깊이 감사하겠습니다.
아래 코드를 시도해보십시오 (설명은 코드 주석 안에 있음)
Option Explicit
Sub OffsetData1()
Dim lRow As Long, Col As Integer
Dim RowDest As Long, ColDest As Integer
' parameters for first cell Paste, these setting are for Cell A7
RowDest = 7
ColDest = 1
For lRow = 1 To 5 ' loop through rows
For Col = 1 To 2 ' loop through columns
' only copy cells with values inside
If Cells(lRow, Col) <> "" Then
Cells(RowDest, ColDest) = Cells(lRow, Col)
ColDest = ColDest + 1
End If
Next Col
Next lRow
End Sub
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다