제조업체 및 제조업체 부품 번호 값이 다른 각 재료 (행 수는 다를 수 있음)에 대해 여러 행이 있습니다. 동일한 행에 모든 제조업체 및 제조 부품 번호가있는 각 재료에 대해이 행을 하나의 행으로 변환해야합니다.
이미지를 첨부 할 수 없으므로 아래 제공된 예 :
기존 데이터
Material1 Mfgr1 MPN11
Mfgr2 MPN12
Material2 Mfgr2 MPN21
Mfgr3 MPN22
Mfgr4 MPN23
필요한 데이터
Material1 Mfgr1 MPN11 Mfgr2 MPN12
Material2 Mfgr2 MPN21 Mfgr3 MPN22 Mfgr4 MPN23
이 코드는 트릭을 수행합니다.
Sub materialsinglerow()
Dim wkb As Workbook
Dim wks, wks1 As Worksheet
Set wkb = ThisWorkbook
Set wks = wkb.Sheets(1)
Set wks1 = wkb.Sheets(2)
continue = True
i = 1
j = 0
k = 2
emptycount = 0
lastmaterial = ""
While continue = True
material = wks.Cells(i, 1)
mfgr = wks.Cells(i, 2)
mpn = wks.Cells(i, 3)
If material <> "" Then
j = j + 1
k = 2
wks1.Cells(j, 1) = material
lastmaterial = material
End If
If mfgr <> "" Then
wks1.Cells(j, k) = mfgr
k = k + 1
wks1.Cells(j, k) = mpn
k = k + 1
Else
emptycount = emptycount + 1
End If
If emptycount > 10 Then
continue = False
End If
i = i + 1
Wend
Sheet1 에서 데이터를 읽고 원래 데이터가 열에 있다고 가정 하여 Sheet2에 결과를 씁니다 A, B and C
.
열에 빈 셀이 10 개 이상 있으면 중지됩니다 C
.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다