티스토리 뷰

행 개수 자동으로 계산해서 값 넣어주는 매크로
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에 무언가 값이 있을 것


공지사항
최근에 올라온 글
최근에 달린 댓글
Total
Today
Yesterday
링크
«   2024/03   »
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
글 보관함