Tag: 补偿

请参阅引用应用程序的variables

我正在尝试将单元格的值放在左列（列A）中的Msgbox中。 这个值需要被挑选出来，这取决于B列中的哪个值是最低的，并且应该被重用，并且行长度是变化的（有时候是200行，有时候是230行等） 到目前为止，我写道： Sub Flow() 'Check lowest value Dim lowestValue As String lowestValue = Application.WorksheetFunction.Min(Sheets("ImportData").Range("B3:B290")) MsgBox "Lowest Flow" & vbNewLine & _ (lowestValue) & vbNewLine & _ "at " & (lowestValue.Offset(0, -1)) End Sub 很明显， lowestValue.Offset(0, -1))不起作用，但基本上这就是我想要实现的：find最低值，然后在左边看一列，并在单元格中显示该值。

抵消dynamic范围的数据

我遇到了一些似乎非常基本的问题。 我与vba的经验本质上是没有的。 我有一个电子表格，其中包含使用我制作的脚本从某些csv文件导入的数据。 脚本读取数据，然后创build主电子表格或覆盖以前的主电子表格。 我想在同一个脚本中移动这个数据一列。 随着更多数据的添加，每次更新电子表格时，需要移动的数据范围都会发生变化。 我在代码的末尾添加了以下内容，但是我无法使其工作。 Set myRange = Range(Cells(1, 1).Address(), Cells(lastRow, lastColumn).Address()) Range("myRange").Offset(,1) 我究竟做错了什么？ 编辑：这是我现在拥有的。 我一直跑到第14行的“运行时错误1004”。 Dim myRange As Range Dim DefPath As String Dim lastRow As Long Dim lastColumn As Long Dim lRow As Long Dim lCol As Long DefPath = Application.DefaultFilePath Workbooks.Open Filename:=DefPath & "\SEM Master File" lRow = Cells(Rows.Count, 1).End(xlUp).Row […]