|
▼つるりん さん:
ありがとうございます
>これでいけるかな。
駄目でした・・・
今更ながらで申し訳ないですが
サンプルDT作成とご提示頂いたコードを実行すると下記のようになってしまいます
取得したい値は
B2:D2
B4:D4
E4:H4
なんですが・・・・
>アドバイスを参考にもう少し検討してみたいと思います
は、前回、頂いたコードで思い浮かんだのが
Resize でしたが・・・・
新規にご提示頂いたようなきれいなコードはかけないと思いますが
イメージ的には近いものを想像していたと思います
SET_DT 実行後 try6 を実行するとお分かり頂けるかと思います
なんか、無理っぽそうな気がしてきました・・・・
Sub SET_DT()
Range("B2").Value = ">゜))))彡 魚"
Range("B2:D2").HorizontalAlignment = xlCenterAcrossSelection
Range("B4").Value = "くコ:彡 いか"
Range("B4:D4").HorizontalAlignment = xlCenterAcrossSelection
Range("E4").Value = "~ >゜)〜〜〜 へび"
Range("E4:H4").HorizontalAlignment = xlCenterAcrossSelection
End Sub
Sub try6()
Dim myRng As Range
Dim mystr As String, celad As String, mystr2 As String
Dim mycell As Range
Dim i As Long
Range("B1:H5").Select
Set myRng = Selection
For i = 0 To myRng.Rows.Count
mystr = ""
For Each mycell In myRng.Resize(1).Offset(i)
If mycell.HorizontalAlignment = 7 Then
mystr = mystr & mycell.Address & ","
End If
Next
If mystr <> "" Then
mystr = "" & Left(mystr, Len(mystr) - 1) & ""
Range(mystr).Select
mystr2 = ActiveCell.Resize(, Selection.Cells.Count).Address(0, 0)
celad = celad & mystr2 & vbCrLf
End If
Next
'MsgBox celad
Debug.Print celad
Set myRng = Nothing
End Sub
イミディエイトウインドウ
B2:D2
B4:H4
|
|