删除VS 2015
中状态栏的神奇药水是什么?
在我的环境中,它有以下选项:
编码: Unicode(UTF-8) - BOM
内容类型: CSharp
分类:无
谢谢。
答案 0 :(得分:10)
Sven在状态栏上方看到了这些附加信息:
此信息由Extensibility Tools 2015 plugin添加。用于关闭所谓编辑器边距的设置 可以在选项>下找到可扩展性工具> 一般:
将值设置为Sub Output_data()
Dim wb As Workbook
Dim ws As Worksheet
Dim wsGet As Worksheet
Dim LCell As Range
Dim sDataCol As String
Dim lHeaderRow As Long
sDataCol = "L" 'Change to be the column you want to match sheet names agains
lHeaderRow = 1 'Change to be what your actual header row is
Set wb = ActiveWorkbook
Set ws = wb.Sheets("Sheet1") 'Change this to be your Summary sheet
'Check for values in sDataCol
With ws.Range(sDataCol & lHeaderRow + 1, ws.Cells(ws.Rows.Count, sDataCol).End(xlUp))
If .Row <= lHeaderRow Then Exit Sub 'No data
'Loop through sDataCol values
For Each LCell In .Cells
'Check if sheet named that value exists
If Evaluate("ISREF('" & LCell.Text & "'!A1)") Then
'Found a matching sheet, copy M78:O78 to the corresponding row, column Z and on
Set wsGet = wb.Sheets(LCell.Text)
wsGet.Range("N78:R78").Copy ws.Cells(LCell.Row, "Z")
End If
Next LCell
End With
End Sub
并重新启动Visual Studio 2015会隐藏此信息。
答案 1 :(得分:6)