摘要：
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... 阅读全文
摘要：
转自http://blog.csdn.net/wangjianming45/article/details/7265949原文SQL 比较乱，整理了一下USE testGOSET NOCOUNT ON--create table for testingIF OBJECT_ID('dbo.tb_testMerge','U')IS NOT NULL DROP TABLE dbo.tb_testMerge;GO CREATE TABLE tb_testMerge( UserID INT IDENTITY(1,1)NOT NULL ,UserName VARCHAR(1 阅读全文