急急看看

zxc1152468 · 发表于 2010-6-22 18:58

qqqqqqqqqqqqqqqq

[ 本帖最后由 zxc1152468 于 2010-6-25 14:34 编辑 ]

unsamesky · 发表于 2010-6-22 19:33

有挑战性：
填充代码：
Sub TC()
  Dim i As Byte
  For i = 1 To 6
   Cells(i, i).Resize(3) = Sheets("1").Cells(i * 3 - 2, 1).Resize(3).Value
  Next
  Columns("A:F").AutoFit
End Sub
选取代码只要15个字符，我个人只有一个办法，先将这几个单元格选取后命名为“难”
然后：
Sub Xuanqu()
  Range("难").Select
End Sub
这样也有17个字符了。哎……，难啊！！！

unsamesky · 发表于 2010-6-22 20:27

15个字符？
是不是弄错了啊，.select就有7个了。剩下的就只有8个字符了。

unsamesky · 发表于 2010-6-22 21:01

要变通的话，就只能这样了！
[难].select '十个字符
但是总感觉出题者应该别有用意！
见附件。

[ 本帖最后由 unsamesky 于 2010-6-22 21:02 编辑 ]

dddw88 · 发表于 2010-6-22 21:51

EP的关题..怎么这样公开讨论了..
有没有管理员在?请帮忙和谐一下谢谢

[ 本帖最后由 dddw88 于 2010-6-22 21:58 编辑 ]

alzeng · 发表于 2010-6-23 09:48

Public A, k%
Sub Selct()
A = [1!A1:A18]
End Sub

复制代码

Sub Wrtin()
Dim i%
For k = 1 To 18 Step 3
i = i + 1
Cells(i, i).Resize(3) = Application.Transpose(Array(A(k, 1), A(k + 1, 1), A(k + 2, 1)))
Next
End Sub

复制代码

alzeng · 发表于 2010-6-23 09:54

看来我的理解有误，这两个按钮并不是关联性的……

penyou · 发表于 2010-6-23 21:34

答案在哪?是不是可以动态定义

		自动登录	找回密码
密码			免费注册

[求助] 急急 看看

[求助] 急急看看