等於基於相關值的其他細胞

Question

我想涉及設置細胞的基礎上，如何在時間上接近他們，讀數分別在不同時間拍攝。在兩個不同的表（「質量平衡」和「平均值」）有一個時間列，我想從「平均數」拷貝數基於如何接近這些數字的時間（見PIC）的「質量平衡」進行粘貼。

我遇到的麻煩的部分是最後的if語句。出於某種原因，它將「平均值」中的最終值粘貼到「質量平衡」中的所有行中，而不是粘貼具有最近時間的值。

變量的描述：

mbv1 & 2是在 「質量平衡」 的初始和最終倍

MBD1 & 2是在 「質量平衡」 爲mbv1 & 2的最初和最後行

avgd1 & 2是初始和最終倍 「平均值」

Dim c1 As Double 
For o = mbv1 To mbv2 
    For n = mbd1 To mbd2 
     For m = avgd1 To avgd2 
      For i = 0 To 40 
       If Abs(Cells(m + i, 1) - o) < Abs(Cells(m + i + 1, 1) - o) Then 
        c1 = i + m 
        Sheets("Mass Balance").Cells(n, 3) = Sheets("Averages").Cells(c1, 4) 
        Sheets("Mass Balance").Cells(n, 10) = Sheets("Averages").Cells(c1, 6) 
       Else 
       End If 
      Next 
     Next 
    Next 
Next 

Answer 1

我創建了一個示例表，看起來像這樣：

|   A   |   B   | C |  D  |  E  | 
------------------------------------------------------------------------------------------- 
1| Mass Balance Data | Mass Balance Times | | Average Data | Average Times | 
------------------------------------------------------------------------------------------- 
2|     |   13   | |  1  |  10  | 
3|     |   22   | |  2  |  20  | 
4|     |   31   | |  3  |  30  | 
5|     |  ...   | |  ...  |  ...  | 

由於下面的代碼是用簡單的數據和一張紙，你將不得不改變一些東西你自己的代碼，但它做在上面的數據上爲我工作。 這個想法是總共有2個循環。你循環每個質量平衡時間。每個質量平衡時間循環遍歷整個平均時間列。一旦找到與質量平衡時間匹配的最近時間，請複製數據值並將其粘貼到特定時間的質量平衡數據中。

Option Explicit 

Sub dataCollect() 

'MBr stands for Mass Balance Row 
'Each of these represent the row and col of a cell with time values 
Dim MBr, MBc As Integer 
Dim AVGr, AVGc As Integer 
Dim minRow, minCol As Integer 

Dim minDiff As Integer 
Dim mbTime As Integer 
Dim avgTime As Integer 

Dim currDiff As Integer 

'start off with beginning row and column of mass balance times and average times 
MBc = 2 
AVGc = 5 
For MBr = 2 To 10 

    'set minDiff to be a really high number 
    'so that the first difference value between average and mass balance times 
    'will be saved as the minimum difference value (used for if statement later) 
    minDiff = 10000 

    'loop through each average time 
    'find and save the row and column of the cell with the closest time to mass balance time 
    For AVGr = 2 To 10 

     'mass balance time value 
     mbTime = Cells(MBr, MBc).Value 

     'average time value 
     avgTime = Cells(AVGr, AVGc).Value 

     'set current difference value 
     currDiff = Abs(avgTime - mbTime) 

     'if the difference in times is smaller than the last recorded difference 
     'then save the row and column of the current average time cell 
     'and set the new minimum (minDiff) value to be the current diff (currDiff) value 
     If (currDiff < minDiff) Then 
      minRow = AVGr 
      minCol = AVGc 
      minDiff = currDiff 
     End If 
    Next 

    'now set the mass balance value to be the average value with the closest time 
    'minCol - 1 and MBc -1  grabs the data value assosiated with that time 
    Cells(MBr, MBc - 1) = Cells(minRow, minCol - 1).Value 
Next 
End Sub