VBAで絶対セル参照を使用して3つのセルをマージする方法

Question

VBAマクロを組み込み、絶対セル参照としてSheet1A8（CSWAH_）を参照し、SeparateA7（Last Name）とSeperateB7（First Name）をマージしようとしています。それらはSeperateE7（ASA Naming）に表示され、E7からE100に至るまでそれを実行することができます。 このようなことも可能ですか？

Answer 1

これを試してください。

Sub Demo() 
    Dim ws As Worksheet 
    Dim rng As Range 
    Dim lastRow As Long 

    Set ws = ThisWorkbook.Sheets("Sheet1")  'change Sheet1 to your data sheet 
    With ws 
     lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'last row with data using Column A 
     Set rng = .Range("E7:E" & lastRow)    'set range in Column E 
     rng.Formula = "=$B$1&""_""&A7&"",""&B7"   'enter formula in range 
     rng.Value = rng.Value       'display values in range 
    End With 
End Sub