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