설명과 금액이라는 두 개의 열이있는 테이블이 있습니다. 빈 행이 생길 때까지 Description1-Amount1, Description2-Amount2 등의 형식으로 세 번째 셀에 이러한 세부 정보를 작성하고 싶습니다. 더 나은 이해를 위해 이미지를보십시오.
이제 A1 셀의 Sheet 2에서 내용을 Dad-500, Chegg-123으로 원합니다. 더 많은 항목이 있으면 나중에 추가하기를 원한다고 가정합니다. 클릭시 해당 시점에 테이블에있는 값이 Sheet2의 Cell A1에 저장되도록 매크로를 설계했습니다.
내 코드는 다음과 같습니다.
Sub database
Dim emptyRow As Long
Dim mix1 As String
mix1 = "=CONCATENATE(Sheet1!C5,""-"",Sheet1!D5)"
Sheet2.Activate
'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(emptyRow, 1).Value = mix1
End Sub
위 코드에서 각각 Sheet1!C5,""-"",Sheet1!D5
Description (C 열)과 Amount (D 열)를 나타냅니다.
이 코드는 수식을 두 번째 시트에 복사합니다. 그러나 해당 세부 정보를 문자열로 변환 한 다음 빈 셀 (A1)에 저장하여 다음에 테이블에서 다른 값 집합으로 매크로를 실행하면 해당 세부 정보를 셀 A2 ( 다음 빈 셀이므로) A1 셀의 값은 문자열로 변환되므로 변경해서는 안됩니다.
이제 내가 직면 한 문제는 매크로를 두 번째로 실행하면 A1과 A2 셀 모두 문자열이 아닌 수식이 포함되어 있기 때문에 셀 A1과 A2의 값이 모두 변경된다는 것입니다.
다른 셀의 값을 자체 형식의 문자열로 결합하고 세 번째 문자열에 저장하는 방법에 대해 저를 도와주세요.
수식을 만들지 않고 값을 전송합니다.
sub database
with sheet2
.cells(.rows.count, "A").end(xlup).offset(1, 0) = _
sheet1.cells(5, "C").value2 & chr(45) & sheet1.cells(5, "D").value2
end with
end sub
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다