본문으로 바로가기
행 개수 자동으로 계산해서 값 넣어주는 매크로
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub 값넣기()
    '시트3번에 마지막행 구하기
    Sheets("Sheet3").Select
    행개수 = Sheets("Sheet3").Range("a1", Range("a1").End(xlDown)).Rows.Count
 
    
    '시트2번의 데이터를 마지막 행에 abcd열에 순서대로 넣기
    받는사람 = Sheets("Sheet2").Range("a2").Value
    보내는사람 = Sheets("Sheet2").Range("d4").Value
    주소 = Sheets("Sheet2").Range("c10").Value
    금액 = Sheets("Sheet2").Range("e16").Value
    
    Sheets("Sheet3").Range("a" & 행개수 + 1).Value = 받는사람
    Sheets("Sheet3").Range("b" & 행개수 + 1).Value = 보내는사람
    
End Sub
 
cs


1.Sheet2, Sheet3 이라는 이름의 시트가 있어야 함.

2.Sheet3 A1, A2에 무언가 값이 있을 것



댓글을 달아 주세요