728x90

엑셀 파일 다운로드

여학생70점이상만 복사.xlsm

0.02MB

Sub Test_01()

Dim lngE As Long
Dim rngD As Range
Dim i As Long

lngE = Cells(Rows.Count, "b").End(xlUp).Row

    For i = 3 To lngE
        If Range("e" & i) = "여" Then
            If rngD Is Nothing Then
                Set rngD = Range("e" & i).Offset(0, -3).Resize(1, 10)
            Else
                Set rngD = Union(rngD, Range("e" & i).Offset(0, -3).Resize(1, 10))
            End If
        End If
    Next

    If rngD Is Nothing Then
        MsgBox "복사할 범위가 없습니다."
    Else
        Range("p3").CurrentRegion.Offset(1, 0).Clear
        rngD.Copy Range("p3")
    End If
Range("a1").Select
End Sub
Sub Test_03()

Dim lngE As Long
Dim rngD As Range
Dim i As Long

lngE = Cells(Rows.Count, "b").End(xlUp).Row

     For i = 3 To lngE
          If Range("e" & i) = "여" And Range("k" & i) >= 60 Then
                   '여학생이면서 평균 60점 이상
               If rngD Is Nothing Then
                    Set rngD = Range("e" & i).Offset(0, -3).Resize(1, 10)
                   'rngD.Select
                        '단계별 실행에서 확인용
               Else
                    Set rngD = Union(rngD, Range("e" & i).Offset(0, -3).Resize(1, 10))
                    'rngD.Select
                        '단계별 실행에서 확인용
               End If
          End If
     Next

     If rngD Is Nothing Then
          MsgBox "복사할 범위가 없습니다."
     Else
          Range("p3").CurrentRegion.Offset(1, 0).Clear
          rngD.Copy Range("p3")
     End If

Range("a1").Select
End Sub

 



출처: https://withseok.tistory.com/266 [with Seok]


저작자표시 비영리 변경금지

'VBA' 카테고리의 다른 글

[VBA] Extract Unique Value (Distinct)  (0) 2021.04.23
[VBA] last Data Cell Searching  (0) 2021.04.23
[VBA] Sheet.Add and Sheet.Delete Method  (0) 2021.04.23
[VBA] Specific Data Deleting  (0) 2021.04.23
Sheet Deleting except specific sheet  (0) 2021.04.23
728x90

www.oppadu.com/%EC%97%91%EC%85%80-vba-%EB%A7%88%EC%A7%80%EB%A7%89-%EC%85%80-%EC%B0%BE%EA%B8%B0-%EB%A7%88%EC%A7%80%EB%A7%89-%ED%96%89-%EC%B0%BE%EA%B8%B0/

저작자표시 비영리 변경금지

'VBA' 카테고리의 다른 글

[VBA] Extract Unique Value (Distinct)  (0) 2021.04.23
[VBA] Specific Data Distraction  (0) 2021.04.23
[VBA] Sheet.Add and Sheet.Delete Method  (0) 2021.04.23
[VBA] Specific Data Deleting  (0) 2021.04.23
Sheet Deleting except specific sheet  (0) 2021.04.23
728x90

1. 시트 추가

아래는 시트를 추가하는 소스의 예제이다.

Sub AddSheets()
    Sheets.Add
    Sheets.Add after:=Sheets(2)
    Sheets.Add before:=Sheets(2)
End Sub

Sheets.Add는 실행한 시트 왼쪽에 새로운 시트를 만든다.

Sheets.Add after:=Sheets(인덱스 번호)는 인덱스 번호에 있는(2의 경우 두번째 시트)시트를 기준으로 오른쪽에

새로운 시트를 생성한다.

Sheets.Add before:=Sheets(인덱스 번호)는 인덱스 번호에 있는(2의 경우 두번째 시트)시트를 기준으로 왼쪽에

새로운 시트를 생성한다.

 

2. 시트 삭제

아래는 시트를 삭제하는 소스의 예제이다.

Sub DeleteSheets()
    Sheets(5).Delete
End Sub

Sheets(인덱스 번호).Delete는 해당 인덱스 번호의 시트(5의 경우 다섯번째 시트)를 삭제한다.

단 데이터가 있는 경우 삭제확인을 한다.

 

삭제 확인을 안보고 싶다면 Sheets(인덱스 번호).Delete 위에 

Application.DisplayAlerts = False

를 추가해주면 된다. 단 위 구문 이후에는 경고창이 안나오기 때문에 되돌리고 싶다면

위 구문에서 False를 True로 해주면 된다.

저작자표시 비영리 변경금지

'VBA' 카테고리의 다른 글

[VBA] Specific Data Distraction  (0) 2021.04.23
[VBA] last Data Cell Searching  (0) 2021.04.23
[VBA] Specific Data Deleting  (0) 2021.04.23
Sheet Deleting except specific sheet  (0) 2021.04.23
Data Distraction and Data-analyzing-insertion  (0) 2021.04.23
728x90

mainia.tistory.com/1235

 

엑셀(Excel) VBA – 매크로 이용해서 특정 조건의 데이터를 삭제하고 싶을 때

엑셀(Excel) VBA – 매크로 이용해서 특정 조건의 데이터를 삭제하고 싶을 때 환경: Microsoft Excel 365 엑셀시트의 자료에서 특정행을 삭제하는데 수작업으로 가능하지만 양이 많을때는 VBA 코드를 짜

mainia.tistory.com

 

저작자표시 비영리 변경금지

'VBA' 카테고리의 다른 글

[VBA] Specific Data Distraction  (0) 2021.04.23
[VBA] last Data Cell Searching  (0) 2021.04.23
[VBA] Sheet.Add and Sheet.Delete Method  (0) 2021.04.23
Sheet Deleting except specific sheet  (0) 2021.04.23
Data Distraction and Data-analyzing-insertion  (0) 2021.04.23

+ Recent posts

티스토리툴바