No.5ベストアンサー
- 回答日時:
Cells(x, y) この y の部分が何列目を示しているので、
最後のステートメントを
Cells(count, 1).Value = c1
にすれば、A列に入ります。
Sub macro4()
Dim a1, b1, c1 As String
Dim count As Integer
For count = 1 To 100
a1 = Cells(count, 1).Value
b1 = Cells(count, 2).Value
c1 = a1 & b1
Cells(count, 1).Value = c1
Next
End Sub
No.4
- 回答日時:
こんな感じですか?
Sub macro4()
Dim a1, b1, c1 As String
Dim count As Integer
For count = 1 To 100
a1 = Cells(count, 1).Value
b1 = Cells(count, 2).Value
c1 = a1 & b1
Cells(count, 3).Value = c1
Next
End Sub
No.3
- 回答日時:
連結する文字列を増やすには、文字と文字をつなげる部分の処理を繰り返します。
※ for ~ next を使いました。
例(A1 ~ A100 の文字をつなげる)
Sub macro3()
Dim a1, b1, c1 As String
Dim count As Integer
c1 = Cells(1, 1).Value
For count = 2 To 100
a1 = Cells(count, 1).Value
c1 = c1 & a1
Next
Range("C1").Value = c1
End Sub
この回答への補足
ありがとうございます。
これも出来ました。
しかし文字が入っているのは
A B
新潟 太郎
北海 タコ
大阪 太郎
このモジュールだと新潟北海大阪となってしまいます。
A B
新潟太郎 太郎
北海タコ タコ
大阪太郎 太郎
としたいのですが、よろしくお願いします。
たびたびすいません。
No.2
- 回答日時:
可能ですが、ワークシート関数ではできませんのでマクロ(VBA)になります。
ワークシート関数ぽい振舞にしたサンプルコードです。
シートタブ上で右クリック→コードの表示→サンプルコードを貼り付け→VBE画面終了でお試しください。
不要の場合、alt+F11キー押下し、サンプルコードを削除して下さい。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, 1).Value = Cells(Target.Row, 1) & Cells(Target.Row, 2)
Application.EnableEvents = True
End Sub
No.1
- 回答日時:
数式[=A1&B1]や関数[=CONCATENATE(A1,B1)]を使った場合、
そのセルに設定されているのは、あくまでも数式や関数です。
そのままの文字列を設定したければ、VBA などを使って処理する必要があります。
一例
Sub macro1()
Dim a1, b1, c1 As String
a1 = Range("A1").Value
b1 = Range("B1").Value
c1 = a1 & b1
Range("C1").Value = c1
End Sub
この回答への補足
早速にありがとうございます。
出来ました、しかしこれはA1からA2、A3~A100、
B1からB2、B3~B100とかっていうことになるとどのように書くのでしょうか?
よろしくお願いします。
これって結構難しいものだと思って手を付けてなかったんですが書いたように動くんですね。
びっくり。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
3の(1)が解けません…。どなたか...
-
なんでa₁b₁を分けて考えないと...
-
どれだけ似てるかを統計的に解析
-
統計ソフトRの重回帰分析につい...
-
EXCELで2つの数値のうち大きい...
-
エクセルで二つの数字の小さい...
-
Excelで隣のセルと同じ内容に列...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
エクセルで特定の文字が入って...
-
エクセル 文字数 多い順 並...
-
エクセルで時刻(8:00~20:00)...
-
エクセルでオートフィルタのボ...
-
Excelで半角の文字を含むセルを...
-
エクセルのオートフィルタで最...
-
「B列が日曜の場合」C列に/...
-
エクセルで、2種類のデータを...
-
Excel 文字列を結合するときに...
-
えエクセルで○は1とし△は0.5で...
-
Excel関数:「0」を除いた標準...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ベクトルの内積を考えるとき、θ...
-
エクセルで1と入力すると〇倍 2...
-
5元連立方程式を解きたい
-
vb.net 関数での割り算
-
Σa[n]/Σb[n]に関する不等式
-
数II・Bの数列の問題です a1+a3+...
-
エクセルのVBAで範囲指定に変数...
-
箱桁の重心位置の公式
-
最小二乗法での指数関数の計算
-
論理関数、IFとANDを組み...
-
再投稿ですいません。前の質問...
-
Maximaで非可換代数計算を行う方法
-
エクセル関数 オートフィルタの...
-
エクセルでif関数を組んだので...
-
同時分布関数について。 Pr{a1...
-
EXCELで2つの数値のうち大きい...
-
Excelで隣のセルと同じ内容に列...
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルでオートフィルタのボ...
おすすめ情報