对于i
=
1到20
工作表(1)。选择
工作表(1)。细胞(I,1)。选择:
Selection.Copy
工作表(2)。选择
工作表(2)。细胞(I,1)。
Selection.PasteSpecial粘贴:=
xlPasteAll下, *** 作xlNone,SkipBlanks:=
_
假,移调:=
FALSE
接下来,我
上面的程序是输入复制到A1的第二片的第一片材??的A1至A20至A20的程序
Sub FillColumn(fg As vsFlexGrid, ByVal c As Long, ByVal t As String, ByVal s As String)Dim r&, i&, cnt&
ReDim lst(0) As String
' build list
cnt = 0
i = InStr(s, "|")
While i >0
lst(cnt) = left(s, i - 1)
s = Mid(s, i + 1)
cnt = cnt + 1
ReDim Preserve lst(cnt) As String
i = InStr(s, "|")
Wend
lst(cnt) = s
' set values
fg.Cell(flexcpText, 0, c) = t
For r = fg.FixedRows To fg.Rows - 1
i = (Rnd() * 1000) Mod (cnt + 1)
fg.Cell(flexcpText, r, c) = lst(i)
Next
' do an autosize
fg.AutoSize c, , , 300
End Sub
FillColumn hfxgrid ""Proposals|Demos|Social|Trips|Projects""
从windows下拷贝过来的文件在linux下不能直接加入数据库,因为字符集不一样,这样打开即使显示是中文也不能在数据库中显示,要把文件拷贝进linux的另一个文件中转换字符才可以。欢迎分享,转载请注明来源:内存溢出
评论列表(0条)