| |
▼ichinose さん：さっそくのご教授ありがとうございます。
試してみたら、myarray・・・の行で
「型が一致しません」とのエラーメッセージが出てしまいました。
申し訳ありませんが、再度教えていただけますか。
ハチさん、ありがとうございます。
質問書に添付したマクロはＡ１０からＡ１３に文字が入っていて、マクロを実行すると
Ａ１０に繋がった文章が出来るものです。
Ａ９にもＡ１４にも文章があるため、これらに影響させたくないと思っています。
>こんばんは。
>
>Sub test()
> Dim rng As Range
> Dim myarray As Variant
> Set rng = Range("a10", Cells(Rows.Count, "a").End(xlUp))
> If rng.Row >= 10 And rng.Count > 1 Then
> myarray = Application.Transpose(rng.Value)
> Range("a10").Value = Join(myarray, "")
> End If
>End Sub
>
>試してみてください
|
|
TAKA
- 06/9/4(月) 22:22 -
