小编Jun*_*Dev的帖子

我知道这个问题之前被问了很多次,我已经检查过以前的建议,但我无法让我的代码运行.

所以,我有一个名为"报告"的文件夹,其中也包含多个文件夹.这些文件夹包含.xlsx和.zip文件.

每个文件还包含一个名为"2016"的文件夹,在其下面有12个文件夹"January","February",...,"December".

这是一个子文件夹的示例

我想要做的是,循环遍历所有这些子文件夹并将.xlsx和.zip文件移动到基​​于createdDate的月度文件夹.

例如,在11月创建的位置中的所有.xlsx和.zip将被移动到位于相同位置的"2016"中的文件夹"November".

我创建了这个宏,但这很耗时,因为每次我需要更改每个子浮动的路径并为每个子文件夹运行它.

Sub Move_Files_To_Folder()

Dim Fso As Object
Dim FromPath As String
Dim ToPath As String
Dim FileInFromFolder As Object

'Change Path
FromPath = "C:\Report\Shipment\"
ToPath = "C:\Report\Shipment\2016\"

Set Fso = CreateObject("scripting.filesystemobject")

For Each FileInFromFolder In Fso.GetFolder(FromPath).Files

'Change month and year
If (Month(FileInFromFolder.DateCreated)) = 11 And (year(FileInFromFolder.DateCreated)) = 2016 _
And (InStr(1, FileInFromFolder.name, ".xlsx") Or InStr(1, FileInFromFolder.name, ".zip")) Then
FileInFromFolder.Move (ToPath & MonthName(Month(FileInFromFolder.DateCreated)) & "\")
End If

Next FileInFromFolder

End Sub

我想自动化我的宏,以便它可以在所有子文件夹上工作不是一个接一个,每次都改变路径.有什么建议吗？非常感谢你.

我在 Excel 工作表中有一列包含以下格式的数据：aaa,bbbb,ccc,dd,eeee,...每个字符串由逗号“,”分隔

我创建了宏，它拆分 A 列中的数据，每个字符串分别插入到每一行的新单元格中，如屏幕截图所示。

现在我想计算在 B 列之后使用了多少个单元格，并根据该数字在单独的行中重复 B 列中的值，并将 C、D、E 列中的下一个值添加到每一行中。

最后，工作表 2 将如下所示：

我创建了一个解决方案：

For i = 1 To 3

ActiveWorkbook.Sheets(2).Cells(i, 1).Value = ActiveWorkbook.Sheets(1).Range("B1").Value
ActiveWorkbook.Sheets(2).Cells(i, 2).Value = ActiveWorkbook.Sheets(1).Cells(1, i + 2).Value

Next i

但它仅在 A 列只有一行时才有效。我尝试过使用 Loops 使用不同的逻辑，但仍然没有得到正确的结果。我有数百行，手动完成会很耗时。请提出任何建议。非常感谢。