[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セルの中の文字列を結合させて表示』(びろん)
sheet1
A 1 △
sheet2
B
1 □
sheet1のA1に何か入力されていた場合、A1の文字列にsheet2のB1を結合させて表示し、A1に何も入力されていない場合、sheet2のB1をそのまま表示させたいです。
sheet1のA1に入力されていた場合
A
1 △□
sheet1のA1に入力されていない場合
A
1 □
次のようにVBAを書いてみました。
Sub ren()
If Sheets("sheet1").Range("A1") = "*" Then
Sheets("sheet1").Range("A1").Formula = Sheets("sheet1").Range("A1") & Sheets("sheet2").Range("B1") Else Sheets("sheet1").Range("A1").Formula = Sheets("sheet2").Range("B1") End If End Sub
うまくいきません。訂正箇所を教えていただけたらと思います。
< 使用 Excel:Excel2013、使用 OS:Windows7 >
If Sheets("sheet1").Range("A1") <>"" Then
ではどうなりますか?
(隠居じーさん) 2018/06/07(木) 14:35
Sheets("sheet1").Range("A1").Value = Sheets("sheet1").Range("A1") & Sheets("sheet2").Range("B1") End Sub
だとだめですか?
条件分岐をする必要が無いように思えます。
(まっつわん) 2018/06/07(木) 14:46
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.