我正在用一块VBA代码挣扎。这个想法非常简单：我想遍历10000行的工作簿，复制每行并粘贴到新的工作簿中，然后保存该新工作簿。这是给人力资源部门的。我们正在尝试为每个员工复制并粘贴一行，并将该信息发送给该人员。 这是我有： Dim i As Long
Dim NewBook As Workbook
Dim EmployeeNumber As String
i = 1
ThisWorkboo
我试图让Excel中的一个功能，这将使所有的相对素数给定数。但是，当我尝试它时，它只是用数组的第一个值填充一个单元格。 Function selectE(phi) As Variant
Dim list(999) As Variant
Dim count As Integer
count = 0
For i = 2 To phi
If WorksheetFunction.G
我写了一个隐藏列的简短脚本，具体取决于单元格的值。 该脚本可以工作，但速度很慢，而且经常出现列数很大（例如> 200列）的Excel错误。脚本失败的 Sub Bouton_hidingColumns()
Dim NumColonne As Integer
For NumColonne = Range("I11").Column To Range("IH11").Column Step 3
我试图避免重复行，所以我想检查最后一行的数据是否与新值不同，如果是这样，然后添加新行与新的数据。不断添加 不知怎的，这是不工作和新的价值观： Set ws = Worksheets("mySheet")
lastrow = ws.Cells(rows.Count, 1).End(xlUp).Row
If item = ws.Cells(lastrow , 5).Value And color