摘要:
1. 取得所有的Sheet,并在当前单元格上列出 Sub GetAllSheets() For i = 1 To Sheets.Count ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Value = Sheets(i).Name Next iEnd Sub2. 在上面的基础上,加上链接:Sub GetAllSheets() For i = 1 To Sheets.Count ActiveCell.Offset(1, 0).Range("A1").Se... 阅读全文
摘要:
对数据库表字段名很多重复的时候,我们希望,把所有的 Name 设置为 名称 .先查引用最多的列:select c.name , count(1) as coufrom sys.columns as c join sys.tables as t on ( c.object_id = t.object_id)where t.type = 'U'group by c.name,t.typehaving count(1) > 1 order by count(1) desc 再用下列SQL作为模板, 按 Ctrl + T 执行select 'EXECUTE sp_adde 阅读全文