VBA写以下代码：Excel表A1，A2，A3有值，遍历它们并将值附在company code上

很高兴为您解答这个问题。以下是一个VBA代码的例子，可以实现您的需求：

Sub AttachValuesToCompanyCode()
Dim companyCode As String
Dim cellValue As Variant
Dim cell As Range

'Enter your company code here
companyCode = "ABC"

For Each cell In Range("A1:A3")
cellValue = cell.Value
'Attach the cell value to company code
companyCode = companyCode & cellValue
Next cell

'Output the final result to cell B1
Range("B1").Value = companyCode

End Sub

这个VBA代码的作用是遍历Excel表格中的单元格A1到A3，并将它们的值附加到公司代码中，并将结果输出到单元格B1。如果您有任何其他问题，请随时联系我。