WorkSheet-Ctrl EAFunctions

EA_MoveColA1

機能説明

指定したワークシート上の指定した列を指定した列に移動します。

定義

Public Function EA_MoveColA1 (

ByRef ea_wsh As Worksheet,
ByVal ea_bfr As String,
ByVal ea_aft As String

)

引数

ea_wsh

対象のワークシートオブジェクトを指定します。

ea_bfr

移動元となる列を指定します。
("A:A"：複数設定不可)

ea_aft

移動先となる列を指定します。
("C:C"：複数設定不可)

戻り値

なし

Sub Main() Dim ea_wsh As Worksheet Dim ea_res As Long Set ea_wsh = ThisWorkbook.Worksheets("Sheet1") ea_res = EA_MoveColA1(ea_wsh, "G:J", "B:B") MsgBox "結果:" & ea_res Set ea_wsh = Nothing End Sub