如何将信息复制到与另一列中找到的内容相对应的列中?
How to copy information into a column corresponding to what is found in another column?
我写了一个宏,我想将保存的电子邮件及其附件的路径位置复制到 B 列中,但仅在未找到 .csv
文件时使用。下面是我的代码:
Dim csv_ap As String
Dim path_report As String
Sheets("Mail Report").Activate
csv_ap = Range("C65000").End(xlUp).Value
If csv_ap = "NO" Then
path_report = MAIN_PATH & "For Resolution\" & Format(today, "dd_mm_yy") & "manual_handling_" & Range("A65000").End(xlUp).Value
Range("B65000").End(xlUp).Offset(1).Value = path_report
End If
这是宏 运行 后生成的电子表格。如您所见,路径未与列 C
中的 "NO" 对齐。我需要宏来实现路径需要与正确的行对齐。我怎样才能做到这一点? (下图为示例,其他情况有所不同)
有许多不同的(可能更好的)方法可以解决这个问题,但只需对现有代码进行最少的更改,您就可以这样做:
Dim csv_ap As Range
Dim path_report As String
Sheets("Mail Report").Activate
set csv_ap = Range("C65000").End(xlUp)
If csv_ap.Value = "NO" Then
path_report = MAIN_PATH & "For Resolution\" & Format(today, "dd_mm_yy") & "manual_handling_" & Range("A65000").End(xlUp).Value
csv_ap.Offset(0, -1) = path_report
End If
它不是 csv_ap
返回一个字符串,而是 returns 一个范围。然后它测试单元格的值,如果它等于 "NO" returns 则路径报告到左侧的单元格。
我写了一个宏,我想将保存的电子邮件及其附件的路径位置复制到 B 列中,但仅在未找到 .csv
文件时使用。下面是我的代码:
Dim csv_ap As String
Dim path_report As String
Sheets("Mail Report").Activate
csv_ap = Range("C65000").End(xlUp).Value
If csv_ap = "NO" Then
path_report = MAIN_PATH & "For Resolution\" & Format(today, "dd_mm_yy") & "manual_handling_" & Range("A65000").End(xlUp).Value
Range("B65000").End(xlUp).Offset(1).Value = path_report
End If
这是宏 运行 后生成的电子表格。如您所见,路径未与列 C
中的 "NO" 对齐。我需要宏来实现路径需要与正确的行对齐。我怎样才能做到这一点? (下图为示例,其他情况有所不同)
有许多不同的(可能更好的)方法可以解决这个问题,但只需对现有代码进行最少的更改,您就可以这样做:
Dim csv_ap As Range
Dim path_report As String
Sheets("Mail Report").Activate
set csv_ap = Range("C65000").End(xlUp)
If csv_ap.Value = "NO" Then
path_report = MAIN_PATH & "For Resolution\" & Format(today, "dd_mm_yy") & "manual_handling_" & Range("A65000").End(xlUp).Value
csv_ap.Offset(0, -1) = path_report
End If
它不是 csv_ap
返回一个字符串,而是 returns 一个范围。然后它测试单元格的值,如果它等于 "NO" returns 则路径报告到左侧的单元格。