Tag: 可见性

只复制可见的单元格

我试图复制可见的单元格使用我的filter后，在同一本书中的另一张表，但我不知道这个代码。 现在看起来如何： Sub Button1_Click() Dim i As Integer Dim VisRan As Range VisRan = Sheets(1).Range("a39:bm29684").SpecialCells(xlCellTypeVisible) Visran.Copy Sheets(2).Cells(1, 1).Select Selection.Paste 但它不起作用。 有什么问题？ Thx提前

如何通过C＃WPF隐藏Excel表格中的网格线

按照此 http://www.e-iceblue.com/Tutorials/Spire.XLS/Spire.XLS-Program-Guide/Worksheet/How-to-hide-or-show-gridlines-on-a-worksheet-in-C.html 隐藏网格线我应该做的只是： Workbook wb = app.Workbooks.Add(XlWBATemplate.xlWBATWorksheet); Worksheet ws = wb.Worksheets[1]; ws.GridLinesVisible = false;<—-WRONG 但这是错误的。 而且这里的解决scheme 如何在Excel中使用开放的xml C＃禁用网格线？ 不起作用。 那么其他方法呢？ 先谢谢你。 帕特里克

自动筛选只select可见的行

我有这个代码。 它通过筛选条件的列表进行循环，如果没有数据select它将再次显示所有数据并循环到下一个条件。 如果显示的数据结束（slDown）并select所有显示的数据，则将其复制并粘贴到另一个工作表中。 清除脚本将清除所有空白行和列，然后返回到原始数据表并删除为复制粘贴所选的数据。 问题是只有一行。 它移动到有数据的行，但是当我结束（xlDown）时，它一路拍摄到底部，然后粘贴导致macros观冻结。 我嵌套另一个if语句来捕获是否只有一行数据可见，但我不能让它正常工作。 有关嵌套if语句的任何build议？ Dim criteria As String Dim F As Range Set Rng = Sheets("Reference").Range("W2:W36") For Each F In Rng criteria = F ActiveSheet.Range("$AV$1").AutoFilter Field:=48, Criteria1:="=*BULK SUBSERVIENT*", Operator:=xlAnd ActiveSheet.Range("$K$1").AutoFilter Field:=11, Criteria1:=criteria Range("A2:CM" & ActiveSheet.UsedRange.Rows.Count + 1) _ .Cells.SpecialCells(xlCellTypeVisible).Rows(1).Select If ActiveCell.Value = vbNullString Then ActiveSheet.ShowAllData Else If (ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell)) = 2 Then […]