VBA实现Excel坐标复制、日落时间匹配及批量循环处理咨询

1. 现有代码的单条数据处理逻辑不符合需求 #

具体不符点如下：

• 列映射错误：需求明确Sheet1的纬度在B列、经度在C列，但代码判断的是第45/46列（AS/AT列）的非空状态，复制的也是这两列数据，与需求数据源完全不匹配。
• 目标列偏差：需求要求将日落时间写入Sheet1的D列，但代码写入的是AU列；同时VLOOKUP的查找值用的是AR列，而非需求指定的A列（日期列）。
• 逻辑缺失：代码复制坐标到Sheet2后直接执行VLOOKUP，未确保Sheet2基于新坐标的日落时间计算已完成，可能导致取到旧的计算结果。

2. 修正后的代码实现 #

以下是适配需求的VBA代码，实现34行循环处理并自动跳过空坐标行：

Dim iRow As Long
Dim WS As Worksheet, WS2 As Worksheet

' 初始化工作表对象
Set WS = ThisWorkbook.Sheets("Sheet1")
Set WS2 = ThisWorkbook.Sheets("Sheet2")

' 循环处理34行（示例为第2-35行，若原代码12-45是目标范围，可替换为For iRow = 12 To 45）
For iRow = 2 To 35
    ' 判断当前行纬度（B列）、经度（C列）是否非空
    If Not IsEmpty(WS.Cells(iRow, 2)) And Not IsEmpty(WS.Cells(iRow, 3)) Then
        ' 将纬度、经度复制到Sheet2的B3、C3（适配Sheet2计算逻辑，若需转置可调整粘贴方式）
        WS.Cells(iRow, 2).Copy WS2.Range("B3")
        WS.Cells(iRow, 3).Copy WS2.Range("C3")
        
        ' 触发Sheet2计算，确保日落时间更新
        WS2.Calculate
        
        ' 用VLOOKUP匹配A列日期，获取日落时间写入D列
        ' 假设Sheet2的日期在D列，日落时间在第23列（与原代码逻辑一致）
        WS.Cells(iRow, 4).Value = Application.VLookup(WS.Cells(iRow, 1).Value, WS2.Range("D2:Z368"), 23, False)
        
        ' 处理匹配失败的情况
        If IsError(WS.Cells(iRow, 4).Value) Then
            WS.Cells(iRow, 4).Value = "无对应数据"
        End If
    Else
        ' 空坐标行，清空D列
        WS.Cells(iRow, 4).ClearContents
    End If
Next iRow

' 释放对象
Set WS = Nothing
Set WS2 = Nothing

关键修改说明 #

• 修正列映射：改用Sheet1的B/C列作为坐标数据源，A列作为日期查找值，D列作为日落时间目标列。
• 完善空行处理：自动跳过B/C列为空的行，对应D列留空。
• 补充计算触发：确保Sheet2在更新坐标后完成日落时间计算，避免读取旧值。
• 优化错误处理：对VLOOKUP匹配失败的情况给出清晰提示。

内容的提问来源于stack exchange，提问作者Tcherke