提取S列的年，放在T列，用VBA怎麼表達

你可以使用 VBA 中的 "Year" 函数来提取日期的年份，并将结果存储到另一个单元格中。以下是一个示例代码，它将遍历 S 列中的所有单元格，提取其年份，并将结果存储到 T 列中相应的单元格中：

Sub ExtractYear()
    Dim lastRow As Long
    lastRow = Range("S" & Rows.Count).End(xlUp).Row '获取 S 列的最后一行
    
    Dim i As Long
    For i = 1 To lastRow '遍历每一行
        Dim dateValue As Date
        dateValue = Range("S" & i).Value '获取单元格中的日期值
        
        If Not IsEmpty(dateValue) Then '如果单元格不为空
            Range("T" & i).Value = Year(dateValue) '提取年份并将结果存储到 T 列中
        End If
    Next i
End Sub

请注意，该代码假定 S 列中的所有单元格都包含日期值。如果某些单元格不包含日期值，则需要添加相应的错误处理代码。

相关问题

加总E列数字，和放在最后，VBA怎么写

您可以使用以下代码来实现将加总E列数字并将其放在最后的功能：

Sub SumEandMoveToEnd()
Dim lastRow As Long
Dim sum As Double
Dim i As Long

lastRow = Cells(Rows.Count, "E").End(xlUp).Row '获取E列最后一行的行数
sum = WorksheetFunction.Sum(Range("E1:E" & lastRow)) '计算E列的总和

Range("E" & lastRow + 1).Value = sum '将总和放在E列最后一行的下一行
Range("E1:E" & lastRow).Delete Shift:=xlUp '删除E列中的所有数据，并将其余单元格向上移动

End Sub

这段代码将计算E列中所有数字的总和，并将其放在E列的最后一行的下一行。然后，它将删除E列中的所有数据，并将其余单元格向上移动，以便将总和放在最后一行。

请注意，这段代码是使用VBA编写的，因此您需要在Excel中打开Visual Basic编辑器，并将其复制粘贴到一个新的模块中。

VBA 遍历表格，提取A列中2个特定字符之间的文本 放在C列中

可以的，你可以使用VBA中的Split函数进行操作。具体的代码可以参考下面的示例：

Sub extractText()
Dim cell As Range
Dim text As String
Dim arr As Variant
For Each cell In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
text = cell.Value
arr = Split(text, "特定字符1")
arr = Split(arr(1), "特定字符2")
Range("C" & cell.Row).Value = arr(0)
Next cell
End Sub

其中，“特定字符1”和“特定字符2”是你要提取的两个特定字符，可以根据具体情况进行修改。这段代码会遍历A列中的所有单元格，提取特定字符之间的文本，并将其放在相应的C列中。