afa

// load example dataset
webuse bg2

// run EFA and rotate loadings
factor bg2cost*
rotate

// get the loading matrix
matrix L = e(r_L)

// obtain variable names from loading matrix
local varlist : rownames L

// obtain number of factors from loading matrix
local J = colsof(L)

// create the i x j rescaled items
forvalues j = 1/`J' {
    local i 0
    foreach var of local varlist {
        generate `var'_`j' = `var'*L[`++i', `j']
    }
}

// compute alpha for each factor
alpha bg2cost*_1
alpha bg2cost*_2
alpha bg2cost*_3 
公卫论坛 

公卫百科

Boermans & Kattenberg (2011) : "Estimating reliability coefficients with heterogenous item weighting using Stata: A factor based approach
公卫百科