使用 Concat 函数的 VBA

VBA using Concat function

提问人：Maeve 提问时间：11/13/2023 最后编辑：JohnMMaeve 更新时间：11/19/2023 访问量：58

问：

我有一个有 2 张纸的工作簿。在工作表 2 （B2） 中，我想使用 Concat 功能将工作表一中的 A2（这是一个手机号码）组合在一起，最好自动使用当前月份和年份作为 Concat 的第二部分，这样它就会给出一个答案，比如 01234567910 - Nov23，或者如果不可能，则使用消息框手动输入日期。

我可以让第一部分工作，但不能让第二部分工作。

Excel VBA 串联

评论

1赞 BigBen 11/13/2023
=Sheet1!A2&" - "&TEXT(TODAY(),"Mmmyy").如果需要 VBA，请使用 .Format

答：

0赞 taller 11/14/2023 #1
  • Date返回当前系统日期。
  • Format以所需格式返回日期。
  • &是一个字符串 concat 运算符。
Option Explicit

Sub Demo()
    With Sheets("Sheet2")
        .Range("B2").Value = .Range("A2").Value & Format(Date, " - MMMyy")
    End With
End Sub

Microsoft 文档：

日期函数

格式化功能

上一个：如果末尾只有一个值要连接，则在结果末尾不保留逗号 [duplicate]

下一个：如何在 keras 层中有两个不同的输入？