Question

请参阅我在互联网上找到的以下代码，该代码目前在某种程度上适用于我。

有人可能会评论这段代码的每一行意味着什么，以便我能理解它的作用吗？

我试图用很少的编程知识来理解它，并添加额外的代码来寻找其他值以粘贴到其他工作表中。

我还试图弄清楚如何将它们一个接一个地粘贴到某些行，而不是保留它们最初在第1页上的行。

代码：

Sub Test()
Dim rw As Long, Cell As Range
For Each Cell In Sheets(1).Range("H:H")
rw = Cell.Row
 If Cell.Value = "Dept 1" Then
  Cell.EntireRow.Copy
   Sheets("Sheet2").Range("A" & rw).PasteSpecial xlPasteValues
 End If
Next
End Sub

-

非常感谢

Answer 1

我已根据要求添加了评论。要将它们粘贴到同一行，请查看删除Sub Test() 'declare variables Dim rw As Long, Cell As Range 'loop through each cell the whole of column H in the first worksheet in the active workbook For Each Cell In Sheets(1).Range("H:H") 'set rw variable equal to the row number of the Cell variable, which changes with each iteration of the For loop above rw = Cell.Row 'check if the value of Cell variable equals Dept 1 If Cell.Value = "Dept 1" Then 'copy the entire row if above is true Cell.EntireRow.Copy 'paste to the same row of Sheet 2 Sheets("Sheet2").Range("A" & rw).PasteSpecial xlPasteValues End If Next End Sub变量并将其替换为每次增加1的内容

@app.route('/get', methods=['GET'])
def getData():
    print(received_data)
    return "OK", 200

Answer 2

以下是您的代码评论希望您理解：

子测试（）

＆＃39;变量定义如下： Dim rw As Long，Cell as Range ＆＃39;循环搜索每个单元格（范围H1到表格1上的最后一个H的结尾）对于表格中的每个单元格（1）.Range（＆＃34; H：H＆＃34;）＆＃39;现在确定当前行号： rw = Cell.Row ＆＃39;测试单元格值如果包含＆gt;＆gt;第1部分作为价值：如果Cell.Value =＆＃34; Dept 1＆＃34;然后＆＃39;选择该行并复制它： Cell.EntireRow.Copy ＆＃39;现在将该行的值粘贴到Sheet2上的A列和rw行中：

   Sheets("Sheet2").Range("A" & rw).PasteSpecial xlPasteValues

＆＃39;您应该添加以下内容：＆＃39;禁用围绕复制范围的行进蚂蚁： Application.CutCopyMode = False

结束如果下一个结束子

理解＆amp;基于值的excel行复制的附加代码

2 个答案: