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