Excel에 특수 데이터 행을 제안합니다. 다음과 같은 테이블이 있습니다. XXXXXXXXXXXXX 123 A 34234234 232 B 34355 233 C 343434

하위 버튼 1_Click()

사람, Pp, 온도 흐리게

Wsheet를 워크시트로 흐리게

I를 정수로 흐리게

Dim NewRow

Dim CPT1 As String, CPT2 As String, CPT3 As String

For Each People In Sheets("人").Range("A1 :A1000" )

I = 0

If People = "" Then

종료 대상

종료 대상

CPT1 = Sheets("SHEET1").Range("D1")

CPT2 = Sheets("SHEET2").Range("B1")

CP3 = Sheets( "SHEET3" ).Range("B1")

ActiveWorkbook.Sheets.Add

ActiveSheet.Name = People

Sheets(People.Text).Range ("C1 ") = CPT1

Sheet1.Activate

Sheets("sheet1").Range("C2:C83")의 각 Pp에 대해

If Pp = People Then

Pp.Activate

NewRow = ActiveCell.EntireRow

Sheets(People.Text).Rows("2:2"). ) = NewRow

I = I 1

End If

다음

I = I 1

시트 (People.Text).Range("c1").Offset(I) = CPT2

시트(People.Text).활성화

시트("SHEET2") .활성화

Sheets("sheet2").Range("C3:C86")의 각 Pp에 대해

If Pp = People Then

Pp.Activate

NewRow = ActiveCell.EntireRow

Sheets(People.Text).Rows("2:2").Offset(I) = NewRow

I = I 1

End If

다음

I = I 1

Sheets(People.Text).Activate

Sheets("SHEET3").Activate

Sheets(People.Text).Range("c1").Offset(I) = CPT3

Sheets("sheet3)의 각 Pp에 대해 ").Range("a3:a1101")

Pp = 사람이면

Pp.Activate

NewRow = ActiveCell.EntireRow

Sheets(People.Text).Rows("2:2").Offset(I) = NewRow

I = I 1

End If

다음

MsgBox People.Text & "FINISH"

다음

End Sub

上篇: 시험망보가 성공한 후에 무엇을 합니까? 下篇: 베르사체 for HM은 무슨 뜻인가요?