如何使用Excel VBA刪除日期並將其放置在列中

Question

因此，我導出了以下格式的數據（日期持續一個月）：

9/1/2014  
Team        Quantity  
Tom            1  
Jim            2

9/2/2014  
Team        Quantity  
Tom            1  
Jim            2

我必須手動從每一行的頂部刪除日期並將其放在一列中，以便可以從中創建數據透視表。 是否有任何VBA代碼可以將日期從第一行起放在這樣的列中：

Team       Quantity     Date  
Tom           1          9/1/2014  
Jim           2          9/1/2014 etc...

Team       Quantity     Date  
Tom           1          9/2/2014  
Jim           2          9/2/2014 etc...

唯一的問題是，一個團隊下的行數每月都是可變的。 有什么建議么？

Answer 1

這是我根據小信息為您准備的。 我已經為您創建了一個模板，這就是它的外觀。

您將不得不選擇運行該程序，而另一個則是放置數據的位置。

因此，如果您看一下我輸入的數據，只需按一下“運行”按鈕即可，結果將是這樣。

因此，這是運行按鈕的代碼。

Sub btnRun()
'declare variables
Dim ToBeFound, strVar1, strVar2 As String
Dim rng As Range

ToBeFound = "Team"

'Activate and selete sheet1 than select A1
Sheets("DataTab").Activate
Range("A1").Activate

For x = 1 To 1000
Set rng = Cells.Find(What:=ToBeFound, LookIn:=xlValues, lookat:=xlWhole)

If IIf(rng Is Nothing, "", rng) = "" Then
MsgBox "Complete"
Exit Sub

Else
rng.Activate
ActiveCell.Value = "Team:"
ActiveCell.Offset(0, 2).Value = "Date"
strVar1 = ActiveCell.Offset(-1, 0).Value
ActiveCell.Offset(-1, 0).EntireRow.Delete

For i = 1 To 100
ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value = "" Then
Exit For

Else
ActiveCell.Offset(0, 2).Value = strVar1
End If
Next i
End If
Next x

End Sub

這是模板，所有內容都已完成，您要做的所有事情就是將數據加載到“數據”標簽中並推送運行。 http://speedy.sh/twvt3/Template.xlsm