小编JC1*_*C11的帖子

我有一个包含许多excel文件的文件夹,所有文件都具有相同的格式.我修改了以下代码以确定日期并重新格式化,其中"i"根据第2列的最后一行确定范围中的单元格数.

Sub Test()
   Dim i As Long
   i = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
   With Range("K3:K" & i)
        .Formula = "=DATE(A3,G3,H3)"
        .NumberFormat = "ddmmmyyyy"
   End With  
End Sub

我想在我的文件夹中的所有工作簿上执行此代码.我在stackoverflow上找到了以下问题:

用于循环指定文件夹中的所有excel文件以及从特定单元格中提取数据的代码

它不会遍历我的所有文件,只能在我打开的第一个excel文件上运行.如何将此代码循环到文件夹中的所有工作簿？以下是我到目前为止的情况.

Sub Test()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook
Dim i As Long

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next
    Set wbCodeBook = ThisWorkbook
        With Application.FileSearch
            .NewSearch

            .LookIn = "C:\Test"
            .FileType = msoFileTypeExcelWorkbooks

                If .Execute > 0 Then
                    For lCount = …

我有一本名为 G 的字典。当我输入 时G. keys ()，输出的示例如下：

>>> G.keys ()
[(1490775.0, 12037425.0), (1493775.0, 12042675.0), (1481055.0, 12046305.0), (1503105.0, 12047415.0), (1488585.0, 12050685.0), (1483935.0, 12051405.0),...

当我使用该操作时，key in G结果是错误的。

>>> (1490775.0, 12037425.0) in G
False

为什么我的字典无法识别我的按键？

>>> type (G.keys()[0])
<type 'numpy.void'>
>>> type (G.keys()[0][0])
<type 'numpy.float64'>
>>> type (G.keys()[0][1])
<type 'numpy.float64'>
type(G)
<type 'dict'>

我试图在带有VBA的excel文件中按升序对列D进行排序.我想扩展列AF中所有值的选择.

我用这个公式作为起点:

排序升序/降序vba excel

它只按一列按降序排序.我找不到更多的例子.

LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row

If (.Range("D2").Value > .Range("D" & CStr(LastRow))) Then
    xlSort = xlAscending
End If

.Range("D2:D" & LastRow).Sort Key1:=.Range("D2"), Order1:=xlSort, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal