Tag: 行

按照垂直>水平，按字母顺序排列列表，无空白: 我有列A中的名称列表，有一些空行（需要为空）。我想要水平排列这个列表（第7行，J列…），按字母顺序排列，没有空白。我知道如何水平放置数值（值在A1：A5，公式在J7）： =INDEX($A$1:$A$5;MATCH(0,COUNT.IF($I$7:I7,$A$1:$A$5),0)) 但是，你能帮我按照字母顺序排列吗？

Excel总和没有特定的行: 我需要在Excel工作表上创build总和公式的帮助。我需要Excel的显示和公式没有特定的行。例如在这些行中是单词“W”或其他方式。我需要显示的总和例如： =SUM(A1:A5) …….. without if column E have = "W" 我试过checkbox的解决scheme，但我发现其他更好的解决scheme：请你能帮助我，我该怎么办？编辑：我也发布你我的Excel表格，我试过你的解决scheme，但不工作： excel表格的例子

Excel / Access VBA – 无法查询上次使用的行，因为查询刷新: 我正在刷新一个查询访问和循环的表，但循环超出了刷新 – 所以我没有得到正确的最后一行。刷新后， a应该等于2746，但是它返回1478，这是刷新前的最后一行。 vPath = ThisWorkbook.Sheets(vHome).Range("LogTblFolder") vFile = ThisWorkbook.Sheets(vHome).Range("LogTblFile") Set wb = Workbooks.Open(vPath & vFile) Sheets("Main").Select ActiveWorkbook.Connections("CTA_DB_Full3").Refresh ActiveWorkbook.Connections("CTA_DB_Full3").Refresh Call WaitForRefresh(1) a = 1:Do Until Sheets("Main").Cells(a, 1).Value2 = "":a = a + 1:Loop vArray = Sheets("Main").Range(Cells(2, 1), Cells(a, 94)) wb.Close False Public Function WaitForRefresh(intSeconds As Integer) Dim dblStart As Double If intSeconds > 0 […]

如何用excel对每一行进行sorting？: 我有一个像这样的excel文件 ABC 1| A_xxxx | B_xxxx | C_xxxx 2| B_xxxx | A_xxxx | C_xxxx 3| C_xxxx | B_xxxx | A_xxxx …..（每个xxxx是不同的数字）我想sorting每一行，使表如下： ABC 1| A_xxxx | B_xxxx | C_xxxx 2| A_xxxx | B_xxxx | C_xxxx 3| A_xxxx | B_xxxx | C_xxxx …. 我怎样才能做到这一点？

INDEX中EXCEL相对引用在插入行后不移位: 我有一个多行命名的范围与公式计算每一行。当我插入新行时，公式应该相应地移动。当我做一个简单的案例，似乎工作： =SUM(INDEX(stuff,ROW(A3),0)) 这个代码在第二行的“东西”，插入新行后，“A2”改为“A3”。在我的实际项目中，公式非常长： =IF(AND(COUNTIFS(INDEX(S2ScoresAssQ1,ROW(A2),0),"<>",S2UnitSelectorQ1,"<>2",S2CodeAssQ1,O$2)>0,O$2<>""),O$3*(SUMIFS(INDEX(S2ScoresAssQ1,ROW(A2),0),INDEX(S2ScoresAssQ1,ROW(A2),0),"<>",S2CodeAssQ1,O$2,S2UnitSelectorQ1,"=1")+0.5*SUMIFS(INDEX(S2ScoresAssQ1,ROW(A2),0),INDEX(S2ScoresAssQ1,ROW(A2),0),"<>",S2CodeAssQ1,O$2,S2UnitSelectorQ1,""))/(SUMIFS(S2OutOfAssQ1,INDEX(S2ScoresAssQ1,ROW(A2),0),"<>",S2CodeAssQ1,O$2,S2UnitSelectorQ1,"=1")+0.5*SUMIFS(S2OutOfAssQ1,INDEX(S2ScoresAssQ1,ROW(A2),0),"<>",S2CodeAssQ1,O$2,S2UnitSelectorQ1,"")),"") 这里当我插入一行时，'A2'保持'A2'，我必须重新粘贴公式。

将列的范围转换为行，然后在该行的下面重复: 以下是我的数据现在的样子：编辑：我忘了补充说，我需要转置是反复出现的 – 每隔n列，我需要开始转置一次。在这个例子中，我每2列有它，但我的实际数据集是每3列。 Username Product 1 Product 2 Service 1 Service 2 Person 1 Name1 Name2 Name3 Name4 Person 2 Name5 Name6 Name7 Name8 这就是我想让我的数据看起来像： Username Product Service (What I've come up with, formula-wise, for PRODUCT:) Person 1 Name1 Name 3 OFFSET([Person 1],0,ROW($A$1)) Person 1 Name2 Name 4 OFFSET([Person 1],0,ROW($A$1)+1) Person 2 Name5 […]

粘贴到新工作表后，从源删除整行: 这段代码中的所有东西都运行良好，直到我需要删除源选项卡（“状态报告”）的“I”列中的行。我必须多次运行此macros以清除所有要删除的行，因为它似乎一次只删除一行。我怎样才能得到这个macros删除所有我想要的行，只运行一次这个代码？ Sub CopyYes() Dim c As Range Dim j As Integer Dim Source As Worksheet Dim Target As Worksheet ' Change worksheet designations as needed Set Source = ActiveWorkbook.Worksheets("Status Report") Set Target = ActiveWorkbook.Worksheets("Sheet1") j = 1 ' Start copying to row 1 in target sheet For Each c In Source.Range("I1:I1000") ' Do […]

不应用公式到最后一行: 我想添加最后一行，然后把公式放在最后一行的特定单元格中。当我运行我所拥有的东西时，它会将公式添加到旧的最后一行，而不是新创build的那一行。你能帮忙吗？ Sub AddDataRow() Dim tableName As String Dim sheet As Worksheet Dim table As ListObject Dim lastRow As Range tableName = ActiveSheet.ListObjects(1) Set sheet = Range(tableName).Parent Set table = sheet.ListObjects.Item(tableName) If table.ListRows.Count > 0 Then Set lastRow = table.ListRows(table.ListRows.Count).Range If Application.CountBlank(lastRow) < lastRow.Columns.Count Then table.ListRows.Add End If End If lastRow.Columns("L").Formula = "=A1+B1" End […]

删除行完全除外第一: 我正在使用Excel中的Visual Basic挣扎，以便除了前六行外，完全删除表中的所有行。这里我举例说明与命令button相关的代码： Dim i As Integer Dim tot_rows As Integer tot_rows = ThisWorkbook.Sheets("NAME").UsedRange.Rows.Count With Worksheets("NAME") For i = tot_rows To 6 Step -1 .Rows(i).ClearContents .Rows(i).EntireRow.Delete Next i 当我执行代码时，它不会删除一行，你能告诉我为什么吗？ tot_rows总是等于401（在表中，我可以看到401行，所以我认为这是正确的）。可能超过401行，我不能直观地看到？谢谢你的帮助，我很感激

用迭代更改参数值: 我有一个Excel文件，我需要从中获取一些数据。当我使用常规整数，一切正常，但现在我很困难 – 我怎么能改变行值？这就是我现在所拥有的 dict_keys = ['Id', 'First name', 'Age', 'Condition Name', 'BiRad', 'Relevant Modality'] dict_values = [p_id, person_name, p_age, name, br, r] if f == 'Mass': #concatvals accepts (row, col, width, start, stop) shape = concatvals(row, 14, 5, 14, 19) #if row = 0 margin = concatvals(row, 14, 5, 14, 19) #here row […]