VBA - 将一列中的单元格的一部分复制（拆分）为新列

Question

我在Column K

中有以下日期/时间

Mon Nov 14 20:15:14 EST 2016

我想复制前3个部分'Mon Nov 14'，并将其添加到column R，以便为具有可变文件名的工作簿中的所有行添加。{/ p>

Column K保持不变，始终为10个字符。小于10的日期包含前导0。

非常感谢能够提供帮助的人！

Answer 1

Sub Transfer()
Dim LastRow As Long
Dim y As Integer
  Dim x As Integer

With ActiveSheet
    LastRow = .Cells(.Rows.Count, "k").End(xlUp).Row
End With
y = 1

For x = 1 To LastRow
  range("k" & y).Select
  ActiveCell.Offset(0, 7) = Left(range("k" & y), 10)
   y = y + 1
Next
End Sub