问题:在Excel中,要用VBA把一个单元格(区域)复制粘贴到指定位置,可以使用录制宏的功能,自动生成的代码如下:
(假设数据源在A1:C10,指定位置是E1:G10)
Sub 录制宏()
Range("A1:C10").Select
Selection.Copy
Range("E1").Select
ActiveSheet.Paste
End Sub
代码简化后如下:
Sub 简化代码()
Range("A1:C10").Copy Destination:=Range("E1")
End Sub
还可以不使用复制功能:
Sub 宏1()
Range("E1:G10") = Range("A1:C10").Value '相当于粘贴值
Range("E1:G10") = Range("A1:C10").Formula '相当于粘贴公式
End Sub
android 静态发送广播 安卓静态广播
package lab.sodino.broadcastaction;
import lab.sodino.util.DatabaseOpenHelper;
import lab.sodino.util.SodinoOut;
import android.app.Activity;
import android.content.ContentResolver;
import android.dat