VBA - 复制（分割）电池的一部分在一列放入一个新列

Question

我在Column K

Mon Nov 14 20:15:14 EST 2016 

下面的日期/时间，我想复制的第3份'Mon Nov 14'并将其添加到column R用于具有可变文件名的工作簿中的所有行。

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