宏连接字符串+数字+日期

Question

我需要将几个单元格值连接到一个单元格中，该单元格始终位于连接的单元格旁边。这是一个例子：

总会有4个主要数据列和第5个主要列＃34; Wynik＆＃34;将用于连接同一行中4个单元格的值。例如，每行的最终结果（在＆＃34; Wynik列中）将是＆＃34; REG-15_S1_2018-01-20_12333＆＃34;

我想为它创建宏来立即执行它，因为每列中都会有记录，但我没有找到任何示例，我也不是VBA专家......你有什么解决方案吗？怎么做或任何可以使用的流行宏？

我会感谢任何帮助。

亚历

Answer 1

尝试，

=A2&"_"&B2&"_"&text(C2, "yyyy-mm-dd")&"_"&D2
'optional for leading zeroes in column D
=A2&"_"&B2&"_"&text(C2, "yyyy-mm-dd")&"_"&text(D2, "00000")

Answer 2

试试这个

Option Explicit

Sub main()
    Dim data As Variant

    With Range("A1").CurrentRegion
        data = .Resize(.Rows.Count - 1, 4).Offset(1).Value
    End With

    ReDim wynik(1 To UBound(data)) As Variant

    Dim i As Variant
    For i = 1 To UBound(data)
        data(i, 3) = Format(data(i, 3), "yyyy-mm-dd")
        wynik(i) = Join(Application.index(data, i, 0), "_")
    Next
    Range("E2").Resize(UBound(data)).Value = Application.Transpose(wynik)
End Sub

Answer 3

在组合单元格的列中，输入公式：

=A2&B2&C2&D2

将列中的公式复制下来。