excel 打印二维码 可以把A1位置的内容生成二维码
excel print a two-dimensional code can generate a two-dimensional code A1 position (2013-03-04, VBA, 19KB, 下载14次)
大家都知EXCEL只能按列排序,
此代码能让EXCEL实现按行排序的功能
Sub Macro1()
Dim i As Integer
For i = 2 To Sheet1.Range("a65535").End(xlUp).Row
Rows(i).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Selection.Copy
Sheets("Sheet1").Select
Rows(i).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Cells(i, 1).Select
Next
End Sub
(2013-02-05, VBA, 8KB, 下载6次)
本示例在工作表的单元格区域 A1:A500 中查找包含值 2 的所有单元格,并将这些单元格的值更改为 5。
This example in the work table range A1: A500 contains the value 2 to find all cells, and the value of these cells changed to 5. (2008-10-31, VBA, 10KB, 下载3次)