Ｐａｇｅ 179 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼２つのセルの内容を１つのセルに書くには？ 小林 02/10/8(火) 21:49 ┗Re:２つのセルの内容を１つのセルに書くには？ Nakamura 02/10/8(火) 23:08 ┗Re:２つのセルの内容を１つのセルに書くには？ 小林 02/10/8(火) 23:14 ─────────────────────────────────────── ■題名 ： ２つのセルの内容を１つのセルに書くには？ ■名前 ： 小林 <yoshio-k@hi-ho.ne.jp> ■日付 ： 02/10/8(火) 21:49 -------------------------------------------------------------------------
| 皆さんこんばんは。 マクロで、２つのセルの内容を１つのセルに書きたいのですが， どのようにしたら良いでしょうか？ 以下、書きかけのマクロです。 入力シートは印刷して他部門で使うためセル（列）を増やせないんです。 Sub kt() Dim i As Integer Dim ws1 As Object, ws2 As Object Dim maxrow As Integer Set ws1 = Worksheets("入力") Set ws2 = Worksheets("zumen") maxrow = ws1.UsedRange.Rows.Count Application.ScreenUpdating = False Worksheets("入力").Activate For i = 3 To maxrow sd = Cells(i, 2).Value If Cells(i, 2) <> "" Then Worksheets("zumen").Select Cells.Find(What:=sd, LookAt:=xlWhole).Activate With ws2 ActiveCell.Offset(0, -1).Copy Destination:=ws1.Cells(i, 2).Offset(0, 1) ◎ここActiveCell.Offset(0, 6)とOffset(0, 7)を ws1.Cells(i, 2).Offset(0, -1)に書きたい。 （↑この部分で関数なら=CONCATENATEのようなことをしたい） End With End If Worksheets("入力").Select Next Application.ScreenUpdating = True End Sub |
| こんばんは こういう事がしたいのかな？ 以下のコードを挿入してみて下さい。 ws1.Cells(i, 2).Offset(0, -1).Value = _ ActiveCell.Offset(0, 6).Value & ActiveCell.Offset(0, 7).Value それでは |
| ▼Nakamura さん： ありがとうございます。 うまくいきました。 |