| |
こんにちは。かみちゃん です。
>二つのシートがあって「☆」を押すと、シートＢのデータを読み込むんです
>が、シートＡの「T-P15-」は読まず、下4桁の数字を見て抽出して、シートBのセ
>ルB2の「曇り」をシートＡのセルB1に反映させたい
それでは、以下のような感じでできると思います。
"-"か"−"はどちらが正しいのかわかりませんので、ちょっと注意してください。
Sub Sample2()
Dim LastCell As Range
Dim c As Range
Dim c2 As Range
Dim strData1 As String
Dim intPos As Integer
Set LastCell = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)
For Each c In Sheets("Sheet1").Range("A1", LastCell)
strData1 = c.Value
intPos = InStrRev(strData1, "-")
If intPos > 0 Then
strData1 = Mid(strData1, intPos + 1)
With Sheets("Sheet2").Columns("A")
Set c2 = .Find(strData1, , xlValues, xlWhole)
If Not c2 Is Nothing Then
c.Offset(, 1).Value = c2.Offset(, 1).Value
Else
c.Offset(, 1).Value = "検索値なし" & strData1
End If
End With
Else
c.Offset(, 1).Value = """-""がない"
End If
Next
End Sub
|
|
かみちゃん
- 07/1/29(月) 22:15 -
