2014年2月15日 - Another option is to use Find function: Sub Teste2() Dim res As Range Set res = Range("A:A").
stackoverflow.com