|
|
|
|
|
|
자문자답입니다.
chatgpt에 요청하니
sheet1의 c1에서f100까지의 데이터를 sheet2의 데이터가 없는 가로행으로 데이터를 취합해주는 매크로를 만들어줘
Sub TransposeAndAppendData()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim lastRow As Long
Dim nextRow As Long
Dim rng As Range
Dim cell As Range
Dim i As Long
' Set worksheets
Set ws1 = ThisWorkbook.Sheets("Sheet1")
Set ws2 = ThisWorkbook.Sheets("sheet2")
' Find the next empty row in Sheet2
nextRow = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row + 1
If nextRow = 1 Then nextRow = 1 ' Adjust if sheet is completely empty
' Set the range from C1 to F100 in Sheet1
Set rng = ws1.Range("C1:F100")
' Transpose and copy data to the next available row in Sheet2
i = 1
For Each cell In rng
ws2.Cells(nextRow, i).Value = cell.Value
i = i + 1
Next cell
End Sub
문구를 만들어 줬습니다. |
|
[불량 게시물 신고] |
|
|
|
작성일 : 2024-06-20(16:17)
최종수정일 : 2024-06-20(16:17) |
|
|
|
|