VBA：2つのセルを組み合わせてシリーズ名を作成する

Question

2つの異なるセルに2つのテキストを結合して、シリーズ名を作成したい。両方の部分の間に空白スペースが必要です。残念ながら、私は

ランタイムエラー1004

Dim Dataws As Worksheet 
Dim Chtws As Worksheet 

Set Dataws = ThisWorkbook.Sheets("Overview") 
Set Chtws = ThisWorkbook.Sheets("Chart") 

Set ChtObj = Chtws.ChartObjects("ChartA") 

With Dataws 
    CurrentRow = 13 
    Do Until Range("A" & CurrentRow) = "" 
     CurrentRow = CurrentRow + 1 
    Loop 
End With 

With ChtObj 
Set Ser = .Chart.SeriesCollection.NewSeries 
     With Ser 
     .Name = "=" & Dataws.Cells(CurrentRow, 4).Address(False, False, xlA1, xlExternal) & " " & Dataws.Cells(CurrentRow, 1).Address(False, False, xlA1, xlExternal) 
     .XValues = "=" & Dataws.Cells(CurrentRow, 5).Address(False, False, xlA1, xlExternal) 
     .Values = "=" & Dataws.Cells(CurrentRow, 6).Address(False, False, xlA1, xlExternal) 
     End With 
End With 
End Sub 

Answer 1

.Name = Dataws.Cells(CurrentRow, 4).Text & " " & Dataws.Cells(CurrentRow, 1).Textはあなたが必要式になり得ます。

.Address(False, False, xlA1, xlExternal)は、外部セル参照を返します。両方のセルのテキストを組み合わせたい場合は、使用する必要があります。.Text

あなたの数式は何か役に立つと評価されていないので、冒頭にあった=を削除する必要があります。