时间戳

首页 > 解决方案 > 使用表格最后一列中最后一个单元格的值来触发宏 vba

excel - 使用表格最后一列中最后一个单元格的值来触发宏 vba

问题描述

一直在尝试各种事情来让它发挥作用，但我无法弄清楚。使用表格，我正在尝试使用 VBA 获取最后一列（在我的情况下为 H 列）中最后一个单元格的值，如果它> 0，则复制 C 列中的最后一个单元格（不在表格范围，它只是一个常规单元格）到下面的下一个单元格。任何帮助将不胜感激。这是完成这本工作簿的最后一块拼图！我没有足够的声誉来发布图片，但非常愿意通过电子邮件将图片或工作簿发送给愿意提供帮助的任何人。

标签： excelvbacopy-paste

解决方案

Sub Test()

Dim ws as Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update
Dim lrH as Long, lac as Long

lrH = ws.Range("H" & ws.Rows.Count).End(xlUp).Row

If ws.Range("H" & lr) > 0 Then
    lrC = ws.Range("C" & ws.Rows.Count).End(xlUp).Row
    ws.Range("H" & lrH + 1).Value = ws.Range("C" & lrC)
End If

推荐阅读