将公式应用于可变范围
将公式应用于可变范围
提问于 2021-03-28 12:44:55
我想把公式应用到给定的范围内。
但是，列的数目不是固定的，而且会有所不同。
截图来想象我在做什么。
截图1:我希望代码从C列开始自动选择，并在下一个图像中应用公式。随着更多的学生尝试测试，列的数量将有所不同。
截图2:这是我希望应用于选定范围的公式。在此之后，我将能够循环从B31和以下的教师名单一个一个，复制每个教师的学生的答案范围，并将他们粘贴到第3-6页，其中包含了我前面提到的第一组结果。
Sub obtainsecond()
Sheets("Question_answers").Select
Range("C31").Select
ActiveCell.Formula2R1C1 = _
"=FILTER(R[-29]C:R[-4]C[3],ISNUMBER(SEARCH(R[-1]C,R[-30]C:R[-30]C[3])))"
End Sub回答 1
Stack Overflow用户
回答已采纳
发布于 2021-03-28 16:15:52
解决问题的一种方法。
此方法假定第1行中的最后一列是具有学生答案的最后一列。
逻辑:我检查最后一列并获得单元格引用(即$H1)。然后我只提取列字母。我把列字母放在你想要扩展的公式中。
代码：
Option Explicit
Sub obtainsecond()
Dim QA_ws As Worksheet 'Declare the worksheet as a variable
Set QA_ws = ActiveWorkbook.Worksheets("Question_answers") 'Decide which worksheet to declare
Dim lCol As Long
Dim LastColumnLetter As String
Dim lColRange As Range
QA_ws.Activate 'Go to the worksheet
lCol = QA_ws.Cells(1, Columns.Count).End(xlToLeft).Column 'Find the last column in the worksheet by checking in row 1
Set lColRange = QA_ws.Cells(1, lCol) 'Set last column to get cell reference, i.e. $H1
'MsgBox lColRange.Address(RowAbsolute:=False) ' $H1
'https://www.exceltip.com/tips/how-to-convert-excel-column-number-to-letter.html (Formula to extract letter: =SUBSTITUTE(ADDRESS(1,B2,4),1,””))
LastColumnLetter = WorksheetFunction.Substitute(lColRange.Address(RowAbsolute:=False), "1", "") 'Get column letter
LastColumnLetter = Replace(LastColumnLetter, "$", "") 'Remove prefix
QA_ws.Range("C31").Formula2 = "=FILTER(C2:" & LastColumnLetter & "27,ISNUMBER(SEARCH(C30,C1:" & LastColumnLetter & "1)))" 'Use relative formula to print in cell (original formula: =FILTER(C2:F27,ISNUMBER(SEARCH(C30,C1:F1))))
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/66841581
复制相关文章
相似问题
腾讯云开发者
