寻找VBA来比较列和自动填入

Question

请在此输入图片描述请在此输入图片描述我想有一个宏，可以对旁边的列进行比较，然后自动帮我填充信息。这是我们每个月都要做的繁琐的事情。

我的VBA经验为零，写代码的时候也不知道从何下手。我希望能把我需要的东西用图片展示出来。一列从来没有超过100%（实际百分比）。如果它在100%，另一列应该与之匹配。如果它在87.5%，另一列应该是87.5%。有时计算出的%会在125%，但实际%不能超过100%。

我必须进去手动编辑右边的一列（这是实际完成的%），以匹配左边的一列（这是一个从预算与成本计算完成%的公式），这是相当繁琐的。

有谁知道有什么办法可以为这个设置一个宏？

Answer 1

我想你只是想找一个公式。不需要VBA。 =IF(A1<=100,A1,100) 应该可以做到这一点。

Answer 2

经过一番思考，也许你可以找一些类似于

Option Explicit

Sub test()
    Dim i As Long
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet

    i = 1
    Set wb = ActiveWorkbook
    Set ws = wb.Sheets("Sheetname")

' Cell(i,6) is equal to row i, column F    
    Do While ws.Cells(i, 6) <> "Lastrow"        ' you will have to define a criterium for the last row
        If Not IsEmpty(ws.Cells(i, 6)) And (ws.Cells(i, 6).Font.Bold = False) Then    ' no empty cells, no cells with bold

Debug.Print i
Debug.Print ws.Cells(i, 6)

            If ws.Cells(i, 6) < 100 Then
                ws.Cells(i, 7) = ws.Cells(i, 6)
            Else
                ws.Cells(i, 7) = 100
            End If
        End If
        i = i + 1
    Loop    
End Sub

它可能不会立即为你工作，但我希望它是一个好的开始，让你自己的宏，然后工作