過去ログ

                                Page     631
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼Rangeno  まつもと 03/1/28(火) 20:29

 ───────────────────────────────────────
 ■題名 : Rangeno
 ■名前 : まつもと <himawari@ztv.ne.jp>
 ■日付 : 03/1/28(火) 20:29
 -------------------------------------------------------------------------
   Dim StartArray
  StartArray = Array("A", "E", "H")
  i= 1
  aaa1 = i   
  Range(aaa1 & "2").select
  
は,うまく作動しましたが。

Dim StartArray
  StartArray = Array("A", "E", "H")
Dim EndArray
  EndArray = Array("C", "F", "K")
  
  i= 1
  aaa1 = i
  bbb1 = i+1
    
  Range("aaa1 : bbb1").select ……○
    
は,最終行でひっかかります。

 Range(aaa1 ":" bbb1).select
 Range("aaa1" :" bbb1").select
 Range(aaa1 : bbb1).select
どれもダメでした。(当然列全体を指定したいのです)

○のところの書き方を教えて下さい。
 
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 631