Excel VBA - 행 끝에서 두 행 빼기

셀에서 시작하려는 상황에 있으며 E9 말로 끝까지 선택하고 싶습니다. 제외하고 싶지 않은 경우 제외 열에 마지막 2 셀을 포함시킵니다.Excel VBA - 행 끝에서 두 행 빼기

그래서 범위 A를 선택하려면 예를

A 
B 
C 
D 
E

을 위해 :

이

ActiveSheet.Range("E9", ActiveSheet.Range("E9").End(xlUp)).Select

을 시도했지만 모르는 C를 열에하지만 D와 E 마지막 두 세포를 없애는 법 ...

출처

2013-11-26 Petrov

select (범위 (A1) .end (xldown) .offset (-2,0)) – Roberto

무엇을 시도해 봤습니까? 코드를 묻는 질문은 해결하려는 문제에 대한 최소한의 이해를 보여 주어야합니다. 시도한 해결책, 실패한 이유 및 예상되는 결과를 포함하십시오. 또한보십시오 : [Stack Overflow question checklist] (http://meta.stackexchange.com/questions/156810/stack-overflow-question-checklist) –

@ Jean-FrançoisCorbett - 죄송합니다. 올바른 구문은 다음과 같습니다. 'Range (Range ("A1"), Range ("A1"). End (xlDown) .Offset (-2, 0)). – Roberto

Range("E9", Cells(Rows.Count, "E").End(xlUp).Offset(-2)).Select

엄지 손가락으로 말하자면 Select 문을 피해야합니다.

출처

2013-11-26 00:41:13 tigeravatar

Dim r as range 

set r = activesheet.range(activesheet.range("A1"), _ 
         activesheet.cells(rows.count,1).end(xlup)) 

if r.rows.count>2 then set r=r.resize(r.rows.count-2,1)

출처

2013-11-26 00:41:58

Excel VBA - 행 끝에서 두 행 빼기

답변

관련 문제