|
▼ばっじぉ さん:
エラー処理も何も考えないで、こんなの作ってみましたけど・・・
>例)
>
>「シート1」
> |1|2|3|
> |A|B|A|
> ・
> ・
> ・
>
>「シート2」
> 1 | A | B |
> 2 | A | B | A | B |
> 3 |A|B|A|B|A|B|A|B|
>データ欄 |あ|い|う|え|お|か|き|く|
>
>「シート1」より、123の状態を判別して、
>その状態に対応したデータを「シート2」より取得する。
>(例の場合、「う」を取得する)
>「シート1」のデータは1つ以上です。
Option Explicit
Sub test()
'
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim LC As Long '最終行
Dim i As Long
Dim x As Integer
Set WS1 = Worksheets("Sheet1")
With WS1
LC = .Range("A65536").End(xlUp).Row
For i = 2 To LC
x = 1
If .Cells(i, 1) = "B" Then
x = x + 4
End If
If .Cells(i, 2) = "B" Then
x = x + 2
End If
If .Cells(i, 3) = "B" Then
x = x + 1
End If
.Cells(i, 4).Value = Worksheets("Sheet2").Cells(4, x)
Next i
End With
Set WS1 = Nothing
End Sub
|
|