摘要： Sub zz() ar = Range("A1").CurrentRegion m = 1 For i = 2 To UBound(ar) If ar(i, 1) <> "B" Then m = m + 1 For j = 1 To 2 ar(m, j) = ar(i, j) Next End If 阅读全文

摘要： static void Main(string[] args) { // 只能用一次 //IList<HUOWU> hUOWUs = new List<HUOWU>{ // new HUOWU(1,1),new HUOWU(2,5),new HUOWU(3,4), // new HUOWU(6,7) 阅读全文

摘要： 将 字典d 放到 A:B 列: [a1].Resize(d.Count) = Application.Transpose(d.keys) [b1].Resize(d.Count) = Application.Transpose(d.items) d.keys 是一个数组， d.items是一个数组 阅读全文