| |
▼ばっじぉ さん：
エラー処理も何も考えないで、こんなの作ってみましたけど・・・
>例）
>
>「シート１」
> |１|２|３|
> |Ａ|Ｂ|Ａ|
> ・
> ・
> ・
>
>「シート２」
> １ | Ａ | Ｂ |
> ２ | Ａ | Ｂ | Ａ | Ｂ |
> ３ |Ａ|Ｂ|Ａ|Ｂ|Ａ|Ｂ|Ａ|Ｂ|
>データ欄 |あ|い|う|え|お|か|き|く|
>
>「シート１」より、１２３の状態を判別して、
>その状態に対応したﾃﾞｰﾀを「シート２」より取得する。
>（例の場合、「う」を取得する）
>「シート１」のﾃﾞｰﾀは１つ以上です。
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
