Tag: 工作表

我如何在工作表中search代码，现在只searchA行

Sub Sample() Dim oRange As Range, aCell As Range, bCell As Range Dim ws As Worksheet Dim ExitLoop As Boolean Dim SearchString As String, FoundAt As String On Error GoTo Err Set ws = Worksheets("Sheet3") Set oRange = ws.Columns(1) SearchString = "2" Set aCell = oRange.Find(What:=SearchString, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If […]

在Excel中recursion地添加单元格

我有我的数据，我想以这种方式添加它（假设B_i是第i个B单元格）：C1 = SUM（B1：B1），C2 = SUM（B1：B2），C_i（或Ci）= SUM （B1：Bi）的。 我怎样才能做到这一点？

Powershell Excel自动添加工作表

我试图自动化每个客户端名称在excel中添加一个工作表（包含数据）为每月报告types工作簿 我认为这应该是直接的…但我使用的方法没有工作….它甚至没有得到制表模式…你能帮我弄清楚我做错了什么？ 以下是我所做的function function Excelclientstatstemplate ($clients) { $Exl = New-Object -ComObject "Excel.Application" $Exl.Visible = $false $Exl.DisplayAlerts = $false $WB = $Exl.Workbooks.Open($excelmonthlysummary) $clientws = $WB.worksheets | where {$_.name -like "*$clients*"} #### Check if Clients worksheet exists, if no then make one with client name ### $sheetcheck = if (($clientws)) {} Else { $WS = $WB.worksheets.add $WS.name […]

Excel VBA循环执行清除所有表格

我正在尝试清除第3行中的工作簿中的所有工作表。 我已经完成了这样的事情： With Sheets("Wizard Sheets Missing in Import") .Rows("3:" & .Rows.Count).Delete End With With Sheets("Import Sheets Missing in Wizard") .Rows("3:" & .Rows.Count).Delete End With With Sheets("Items Missing from Wizard") .Rows("3:" & .Rows.Count).Delete End With With Sheets("Items Missing from Imports") .Rows("3:" & .Rows.Count).Delete End With 但如果可能的话，想要实现一个循环。 我试过这个，它只清除活动表单和其他表单，尽pipe它被告知循环表单（据我所知）： For Each vWorksheet In ActiveWorkbook.Sheets With ActiveSheet Rows("3:" & […]

VB Excel：如何移动工作表与表格/macros

我在将工作表转移到其他工作簿时遇到问题。 我在第一个工作簿以及1或2个表单中写了几个macros，我需要能够将包含这些macros和表单的这个工作表移动到一个新的工作簿中。 如果我只是做一个简单的工作表副本，工作表的新版本将引用旧的工作表的macros，我写（第一个工作表）中的表单不会引发当我尝试加载第二个工作表中。 有什么build议么？ 我试过谷歌search，似乎没有任何类似的问题…也许我错过了什么？

从一个csv工作表移动到另一个python脚本

我一直在使用Excel创build.csv工作表，我想用pythonparsing。 每个工作表以一个商店命名（例如，工作表1：“Waitrose”，工作表2，“Tesco”，工作表3，“Asda”），并包含产品列表（第1列）及其相关价格（第2列）。 我已经写了一个Python脚本，可以访问工作表并将其内容转换为字典（见下文），但我正在努力寻找一种方法让程序访问工作簿中的下一个工作表。 我想结束与工作表一样多的字典。 csv模块似乎没有太大的帮助，我无法find一个当前的第三方python 3兼容模块，处理excel。 我想也许是苹果，但我不知道如何将它embedded到Python脚本 waitrose = {'apples'：25，'oranges'：45 etc} 有什么build议么？ 保罗。

Excel，计算另一列中相应行等于值的一列的总和

所以我有下面的公式可以完美地计算我间接引用的另一个工作表的整个列的SUM。 =SUM(INDIRECT(A4&"!C:C")) 我现在需要的是计算C的SUM（如上所述），但只有当D列中的相关行等于Yes时。 可以这样做吗？ 谢谢，

VBA – 对象'_CommandBarComboBox'的方法'列表'失败

我有一个VBA中的子调用另一个子来执行一些数据分析，如果用户粘贴在下面的错误代码为： 运行时错误'2147467259（80004005）'：对象'_CommandBarComboBox'的方法'列表'失败 Private Sub Worksheet_Change(ByVal Target As Range) Dim UndoList As String UndoList = Application.CommandBars("Standard").Controls("&Undo").List(1) 'Errors Here! If Left(UndoList, 5) = "Paste" Then Dim Annotations() As String FindAnnots End If End Sub 任何想法，为什么对象的列表不存在？

循环浏览文件夹中所有Excel工作簿中的所有工作表，以更改所有单元格中文本的字体，字体大小和alignment方式

在我的硬盘上我有一个文件夹包含一些Excel工作簿。 我想要遍历该文件夹中每个Excel工作簿中的所有工作表，以更改所有单元格中字体，字体大小和文本alignment方式。 从我自己有限的VBA知识和从这里阅读其他相关的问题，我已经拼凑了我已经存储在Personal.xls下面的macros。 现在，它似乎循环了工作簿，但它不是在任何文本格式化。 Sub Format_Workbooks() 'This macro requires that a reference to Microsoft Scripting Routine 'be selected under Tools\References in order for it to work. Application.DisplayAlerts = False Application.ScreenUpdating = False Dim fso As New FileSystemObject Dim source As Scripting.Folder Dim wbFile As Scripting.File Dim book As Excel.Workbook Dim sheet As Excel.Worksheet Set source […]

从Excel工作表中删除空白行

我做了一些search，但我似乎无法find一个快速的方法来摆脱工作表内的所有BLANK行。 我不希望它占用太多时间。 有这样的方法吗？ 我已经尝试了一些不太精彩的方法，包括在所有列中过滤空白，然后删除屏幕上的内容。 也许有一个Excel中的function，我在这里失踪？ 我正在寻找像UsedRange.RemoveDuplicates()函数，在一两秒钟内完成了大量的工作。