Tag: 行

如何复制具有多行的单元而不干扰行？

我有一个单元格A1包含几行： 安妮 约翰 灰色 但是，当我键入=A1到另一个单元格，它返回一个组合的行： AnneJohnGrey 我需要它留在分开的行，所以我试图使用=INDIRECT(A1) ，但它失败。 有什么build议么？

获取一个单元格的值，存储一个variables，然后下一个单元格，下一行（Excel）

我想获得一个单元格的值，并将其存储为一个variables。 然后将另一个区域中另一个单元格的值设置为该variables。 然后移动到单元格。 当行中的所有单元格都被捕获后，我想移动到下一行，并重新开始第一个单元格和第一个variables。 我不知道如何移动到下一个单元格，然后将新的范围中的值设置为variables。 这是我到目前为止 Dim rng As Range Dim row As Range Dim cell As Range Dim card1 As String Dim card2 As String Dim card3 As String Dim card4 As String Dim card5 As String Dim valueRng As Range Set rng = Range("A2:D4") Set valueRng = ("F2:I4") For Each row In rng.Rows […]

Exceldynamic行

嗨，我使用这些公式从一张表提取一些数据到另一个。 ='[test.xlsx]Some Fantastic Sheet Name'!A1 ='[test.xlsx]Some Fantastic Sheet Name'!B1 ='[test.xlsx]Some Fantastic Sheet Name'!C1 我拿到了数字（1），例如D1。 通过更改单元格D1中的数字来更改公式中的行号是否可行？ …所以当D1是2时，它将如下所示： ='[test.xlsx]Some Fantastic Sheet Name'!A2 ='[test.xlsx]Some Fantastic Sheet Name'!B2 ='[test.xlsx]Some Fantastic Sheet Name'!C2

在使用VBA复制到新工作表后，删除Excel中的空行

我已经成功地为Excel写了一个VBA脚本，它检查列A是否包含特定条目（在本例中为2016），然后将整个行复制到新的工作表中。 唯一的问题是，它将行复制到与原始工作表完全相同的位置。 正因为如此，我得到之间的空行。 我想要macros复制它们之后立即删除这些空行，或者将这些行一个接一个地复制到新的工作表中。 Sub CopyRow() Application.ScreenUpdating = False Dim x As Long Dim MaxRowList As Long Dim S As String Dim wsSource As Worksheet Dim wsTarget As Worksheet Set wsSource = ThisWorkbook.Worksheets("Tab 1") Set wsTarget = ThisWorkbook.Worksheets("Tab 2") aCol = 1 MaxRowList = wsSource.Cells(rows.Count, aCol).End(xlUp).Row For x = 2 To MaxRowList If InStr(1, wsSource.Cells(x, […]

Pythonpandas数据框从列中select行

在列降雨/年/月的Excel表中，我想每年总结降雨数据。 例如，从2000年1月12日开始，所有的降雨细胞都join了新的细胞。 我尝试在Python中使用pandas，但无法pipe理（刚开始编码）。 我如何继续？ 欢迎任何帮助，谢谢！ 这里的数据头（已下载）： rainfall (mm) \tyear month country iso3 iso2 0 120.54000 1990 1 ECU NaN NaN 1 231.15652 1990 2 ECU NaN NaN 2 136.62088 1990 3 ECU NaN NaN 3 203.47653 1990 4 ECU NaN NaN 4 164.20956 1990 5 ECU NaN NaN

在Excel中合并列

我在Excel中有两列，如下所示 一个苹果 一，bannana 一，橙色 一，梅花 B，苹果 B，浆果 B，橙色 B，柚子 C，瓜 C，浆果 C，猕猴桃 我需要在不同的工作表上合并它们 一，苹果，bannana，橘子，李子 B，苹果，浆果，柑橘，柚子 C，瓜，果，猕猴桃 任何帮助，将不胜感激 这段代码有效，但速度太慢。 我必须循环30万条目。 Dim MyVar As String Dim Col Dim Var Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ' Select first line of data. For Var = 1 To 132536 Sheets("Line Item Detail").Select Range("G2").Select ' Set search […]

EXCEL如何查找列的总和，但仅限于在不同列中具有特定值但在相应行中的值

我很抱歉，如果我的问题是令人困惑的，我不太擅长Excel，我试图提出的公式给我头痛，所以让我试着澄清。 在“A1：A30”栏中，我有一个date（Sat01Jun2013-Sun30Jun2013）。 “B”是开始时间（00：00-23：29）。 “C1：C30”是结束时间（00：29-23：59）。 “D1：D30”是一个名字（ALPHA / BRAVO / CHARLIE / DELTA）。 在“E1：E30”列中，我有一个为该特定行设置的IF公式。 如果“D”等于ALPHA，那么一个公式将“C”减去“B”的差值转换成一个数字，其中0.5等于30分钟，如果不等于0 = IF（D1 = “ALPHA”;（ROUNDUP（（C1-B1-INT（C1-B1））* 24; 1））; 0） 具体为每一行设置相同的公式 在“F”中，我有相同的公式，但对于BRAVO而不是ALPHA。 “G”表示CHARLIE。 DELTA的“H” 在“I”中，我有ALPHA /列“E” BRAVO的“J” CHARLIE的“K” DELTA的“L” 现在我想这是我正在得到的。 我宁愿在列“E”中有（ROUNDUP（（C＃-B＃-INT（C＃-B＃））* 24; 1））公式在另一列中添加一个公式，它将“E “只有在相应的行中值等于”ALPHA“。 如果我的问题不够清楚，或者我刚刚提供了太多不必要的信息，我还要再次道歉。 如果你有任何时间来帮忙，或者你曾经尝试过而且没有能力，我还要提前感谢你。 谢谢。

VBA图表问题

我组合了在这些post中find的两个代码，但是现在图表没有显示Range（“B2：C2”）中的数据。 我刚刚开始学习如何写macros，所以忍受着我。 有人可以帮忙吗？ 先谢谢你 Sub test() Range("A2").Select Do Until IsEmpty(ActiveCell) Dim ws As Worksheet Dim rng As Range Set ws = Sheets("Sheet1") Set rng = ws.Range("B2:C2").Offset(Row, 0) ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Range(ws.Name & "!" & rng.Address) ActiveChart.ChartType = xlLineMarkers ActiveChart.PlotArea.Select ActiveChart.SeriesCollection(1).XValues = "='Sheet1'!$B$2:$C$2" ActiveChart.SeriesCollection(1).Name = ws.Range("A2").Offset(Row, 0).Value ActiveChart.Location Where:=xlLocationAsNewSheet ws.Select ActiveCell.Offset(1, 0).Select Loop Set ws = Nothing […]

在列中匹配标准后，删除Excel表中的行

我的数据看起来像这样。 我想删除名为Position from column的列中的值为1的行。我写了一个macros来做这个 Sub DEL_row() row_number = 2 Do DoEvents row_number = row_number + 1 Position_from_first = Sheet8.Range("E" & row_number) If InStr(Position_from_first, "1") >= 1 Then Sheet8.Rows(row_number & ":" & row_number).Delete End If Loop Until Position_from_first = "" MsgBox "completed" End Sub 但是当我运行它，我得到一个错误。 信息框说已完成，但它不会执行所需的工作，当我通过Excel表单。 任何人都可以帮我解决问题。 非常感谢帮助…

Excel VBA自动筛选>删除空行

我们有一张表格用于分析详细的招标stream程，并希望删除任何空行。 每个项目的范围可能不同，最多可能有170列和6000行。 我已经testing的代码正在工作，在一个约。 40列和4750排，只需要10分钟就可以跑了。 寻找任何稍微优雅的解决scheme，以使这一次。 目前的代码将自动筛选每一栏的空白，想知道是否是空的列被过滤是放缓整个事情？ 在下面的代码中，我删除了大多数的自动筛选字段以便于查看，但是它从1-175过滤每个字段。 Sub DeleteEmptyRows() With Sheets("Detailed Comparison") Application.DisplayAlerts = False .AutoFilterMode = False Application.ScreenUpdating = False With .Range("F24:FY6000") .AutoFilter .AutoFilter Field:=1, Criteria1:="=" .AutoFilter Field:=2, Criteria1:="=" .AutoFilter Field:=175, Criteria1:="=" End With With .Range("F25:FY6000").SpecialCells(xlCellTypeVisible).Rows.Delete End With Application.DisplayAlerts = True .AutoFilterMode = False Application.ScreenUpdating = True End With End Sub