|
▼ichinose さん:たびたびすいません。
>>試してみたら、myarray・・・の行で
>>「型が一致しません」とのエラーメッセージが出てしまいました。
>myarrayは
>>> myarray = Application.Transpose(rng.Value)
>>> Range("a10").Value = Join(myarray, "")
>
>のどちらの行ですか?
myarray = Application.Transpose(rng.Value) この行です。
>>>Sub test()
>>> Dim rng As Range
>>> Dim myarray As Variant
> Set rng = Range("a10:A13")
>>> If rng.Row >= 10 And rng.Count > 1 Then
>>> myarray = Application.Transpose(rng.Value)
>>> Range("a10").Value = Join(myarray, "")
>>> End If
>>>End Sub
>
>これではどうなりますか?
Set rng = Range("a10:A13") に変更してみましたが結果は同じでした。
親切に教えていただいていながら何なんですが、ハチさんから教えていただいた
方法で何とかなりそうなので、そちらの方で進めたいと思います。
ichinoseさんの言わんとすることを直ぐに理解できるようになりたいと思っています。
ありがとうございました。
|
|