Tag: 范围

在Python的openpyxl包中为范围函数select特定的单元格

我有这个代码： from openpyxl import Workbook wb = Workbook() ws = wb.active for i in range(10): ws.append([i]) 这将range(10) （0-9值）从A1写入到A10 。 我们如何将这些细胞改变成其他细胞？ 例如从B1到B10或从A1到J10 ？

SQL：分组依据的dynamic值的范围

这与其他一些问题类似，但这些使用CASE，我不能。 这是在Oracle上，我将从Excel工作表中运行查询。 （顺便说一下，这些不支持WITH，这使得生活变得更加困难） 我有一个大表中的date范围 – 如2011年3月4日，2012年4月4日，2013年7月1日，2013年9月1日…..然后，我有另一个表，在某些date。 所以我需要做的是每个员工在每个干预时间段内工作的小时数。 所以表格就像 Dates 1-May-2011 5-Aug-2011 4-Apr-2012 …. 和另一个 Employee Hours Date Sam 4 1-Jan-2011 Sam 7 5-Jan-2011 Mary 12 7-Jan-2012 Mary 5 12-Dec-2013 …… 所以结果应该是 Employee Hours In Date Range Till Sam 11 1-May-2011 Sam 0 5-Aug-2011 Sam 0 4-Apr-2012 Mary 0 1-May-2011 Mary 0 5-Aug-2011 Mary 12 4-Apr-2012 […]

带有variables标准的Excel COUNTIF，然后将所有结果添加到它们上面的单元格

各种公式被用来创build几列数字。 列B和列C的总和值在列D中创build了值。列B的编号从B2到B58按降序排列。 因为C中的那些不下降，所以一些D值不是很好。 样品： BCD 79.3 2.5 81.8 76.7 1.5 78.2 75.3 2.1 77.4 73.2 6.3 79.5 * 66.9 1.6 68.5 65.2 0.6 65.8 64.6 1.7 66.3 * 62.9 2.2 65.1 在这个例子中，D中的两个值比它们上面的单元格大。 在列E中，我想在D列中find像这样的所有单元格，其中D（n + 1）> D（n）。 无论发生什么事，我都想把相邻的C（n + 1）加到D $ 2：D（n + 1）单元的整个范围内。 简单地说，如果D34> D33，那么我想将C34添加到上面的所有单元格中，在D $ 2：D33中。 想法？

使用string作为范围时出错（VBA Excel）

我正在尝试使用一个string通过使用范围（MaPlage）来select一些单元格，但是这不起作用。 这是代码和我如何构造string： Dim MaPlage As String Dim MyRange As Range Dim Line As Integer Dim AdrRD as String Dim First_Cell As Boolean First_Cell = True AdrRD = "A" For Line = 1 To 100 Step 1 If Sheet.Range(AdrRD & Line).Value = "" Then If First_Cell = True Then MaPlage = AdrRD & Line First_Cell = […]

Excel VBA复制/粘贴范围到另一个工作表中的下一个可用单元格

我想要做什么：过滤数组，然后将过滤的数据复制到不同的工作簿。 然后将刚刚粘贴到同一工作簿中另一个工作表上的数据复制，但是这次是在现有数据之下。 我的想法：下面我使用的代码是用来帮助我从一个工作簿复制和粘贴到另一个工作簿，并完美地工作， wb.Sheets("2014 Current Week").Range("C2:CC10000").Copy nwb.Sheets("2014 YTD").Range("C" & Rows.Count).End(xlUp).Offset(1, 0) 但是如果我想在同一个工作簿中复制它似乎不能以相同的方式工作。 任何帮助，将不胜感激。 谢谢！ Dim wb as workbook Dim strs As String Dim str As String Dim nwb as workbook Set wb = ThisWorkbook strs = wb.Sheets("Macros").Range("H5") 'the 2014 address can be found in full in cell H5 in the Macros tab set nwb = […]

如何设置范围到特定的单元格

我的代码当前运行通过第一列，并find一个特定的关键字。 我想在另一个关键字的下一列进行另一个search，但仅限于在第一列中find该单词的行。 我想知道如何做到这一点。 这是我的代码到目前为止： Set aCell = oRange.Find(What:=firstInput, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not aCell Is Nothing Then Set bCell = aCell FoundAt = aCell.Address Do Set aCell = oRange.FindNext(After:=aCell) If Not aCell Is Nothing Then If aCell.Address = bCell.Address Then Exit Do FoundAt = FoundAt & ", " & aCell.Address […]

Excel将范围设置为单元格到variables

所以我现在正在使用这个代码 Sub splitUpRegexPattern() Dim regEx As New RegExp Dim PATTERN As String Dim strInput As String Dim strReplace As String Dim Myrange As Range rwcnt = WorksheetFunction.CountA(Range("A:A")) Set Myrange = ActiveSheet.Range("A1:A") 我正在使用rwcnt来计算行数，并且我想重新使用这个macros，而不必每次都手动更改范围。 我想将范围设置为类似的 Set Myrange = ActiveSheet.Range("A1:A[rwcnt]") 这可能吗？ 我想这样做，而不是使用类似的东西 For i = 1 To rwcnt 任何意见，将不胜感激，谢谢。

将合并的单元格的结果保存到一个新的csv文件

我提出了关于每行单元格合并的问题。 我在这里收到了很好的答案： 第一个问题 现在，我正在使用第一个问题中的代码，另外我使用了这个问题的代码： 第二个问题 我的目标是将合并的单元格的结果保存到一个新的csv文件。 结合两者的代码我有这样的： Sub sisk() Dim sisk As String Dim row As Long Dim col As Long Dim Rng As Range Dim WorkRng As Range Dim xFile As Variant Dim xFileString As String For row = 2 To 96 sisk = vbNullString For col = 1 To 4 If VBA.Len(sisk) Then […]

我如何循环通过sorting的Excel中的sorting在Excel中的范围在Excel中？

我正在使用VBA对Excel 2010中的过滤工作表进行sorting。在视觉上，sorting工作，但是当我在VBA中逐步筛选的范围时，看起来范围仍然保持其原始顺序。 为了我的目的，这是不希望的。 这是我的循环代码的摘录： For r = 2 To LastRow Set row = ws.Range(r & ":" & r) Debug.Print row.Row Next

在Excel中计算范围内的所有单元格

什么是最简单或首选的Excel公式来计算范围内的所有单元格，无论是否空白？ 比方说，我有一列单元格，一些空白，一些非空白。 我想要一个显示“x / y”的公式，其中x =非空白单元格的数量，y =单元格的总数量。 我发现这会起作用，但我想知道是否真的需要总结两个函数来获得“y”？ =COUNTA($L$9:$L13) & "/" & COUNTA($L$9:$L13) + COUNTBLANK($L$9:$L13) 显示4/5 （对于我的数据，其中5个单元中的4个非空白）