Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16310 / 76732 ←次へ | 前へ→

【65890】Re:For〜 Nextの使い方
質問  けい  - 10/7/5(月) 18:48 -

引用なし
パスワード
   ▼アラン・ケイ さん:

ご返信ありがとうございます。

lastRow = Cells(Rows.Count, 2).End(xlUp).Row

のところについて質問ですが、これはどの部分の行をカウントしていることになりますか?

データは下にもありますが、一つの領域に対してのみB列の中身を調べたいのですが、それに対応してると思って大丈夫でしょうか?


>こんなことでしょうか?
>
>Sub Test()
>  Dim srcName As String
>  Dim myRange As Range
>  Dim startRow As Long
>  Dim lastRow As Long
>  Dim k    As Long
>  Dim s    As String
>  
>  srcName = "Education"
>  Set myRange = Range("A:A").Find(What:=srcName, LookAt:=xlWhole)
>  
>  If Not myRange Is Nothing Then
>    startRow = myRange.Row + 3
>    lastRow = Cells(Rows.Count, 2).End(xlUp).Row
>    
>    For k = startRow To lastRow
>      s = Cells(k, "B").Value
>      If s <> "" Then
>        If Left(s, 6) = "D.V.M." Then
>          Cells(k, "E").Value = "medical D"
>        ElseIf Left(s, 8) = "D.Med.Sc" Then
>          Cells(k, "E").Value = "Doctor"
>        ElseIf Left(s, 2) = "M." Then
>          Cells(k, "E").Value = "Master"
>        Else
>          Cells(k, "E").Value = "その他"
>        End If
>      End If
>    Next
>  End If
>End Sub

0 hits

【65888】For〜 Nextの使い方 けい 10/7/5(月) 17:41 質問
【65889】Re:For〜 Nextの使い方 アラン・ケイ 10/7/5(月) 18:06 回答
【65890】Re:For〜 Nextの使い方 けい 10/7/5(月) 18:48 質問
【65891】Re:For〜 Nextの使い方 アラン・ケイ 10/7/5(月) 19:56 回答
【65892】Re:For〜 Nextの使い方 アラン・ケイ 10/7/5(月) 20:19 回答
【65894】Re:For〜 Nextの使い方 けい 10/7/6(火) 10:07 お礼

16310 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free